← Back to branch summary

~hwkrus/f03gl/trunk

« back to all changes in this revision

Viewing changes to bluebook/shadowmap.f90

  • Committer: dolfyn
  • Date: 2016-08-17 17:40:39 UTC
  • Revision ID: hwkrus@gmail.com-20160817174039-cxy9566338nyyl0i
bluebook, value attribute already signals intent(in)

Show diffs side-by-side

added added

removed removed

Lines of Context:
bluebook/shadowmap.f90
52
52
 
53
53
     subroutine ProcessMenu(i) bind(C)
54
54
       use opengl_gl
55
 
       integer(glcint), intent(in), value :: i
 
55
       integer(glcint), value :: i
56
56
     end subroutine ProcessMenu
57
57
 
58
58
     subroutine ChangeSize(w,h) bind(C)
59
59
       use opengl_gl
60
 
       integer(glcint), intent(in), value :: w,h
 
60
       integer(glcint), value :: w,h
61
61
     end subroutine ChangeSize
62
62
 
63
63
     subroutine KeyPressFunc(key, x,y) bind(C)
64
64
       use opengl_gl
65
 
       integer(kind=GLbyte), intent(IN), value :: key
66
 
       integer(kind=GLint), intent(in), value  :: x, y
 
65
       integer(kind=GLbyte), value :: key
 
66
       integer(kind=GLint), value  :: x, y
67
67
     end subroutine KeyPressFunc
68
68
 
69
69
     subroutine TimerFunction(i) bind(C)
70
 
       integer, intent(in), value :: i
 
70
       integer, value :: i
71
71
     end subroutine TimerFunction
72
72
 
73
73
     subroutine KeySpecialFunc(key, x,y) bind(C)
74
74
       use opengl_gl
75
 
       integer(kind=GLint), intent(in), value  :: key, x, y
 
75
       integer(kind=GLint), value  :: key, x, y
76
76
     end subroutine KeySpecialFunc
77
77
   end interface
78
78
 
493
493
   use OpenGL_GLUT
494
494
   use spheremod
495
495
 
496
 
   integer(glcint), intent(in), value :: value
 
496
   integer(glcint), value :: value
497
497
 
498
498
   select case( value ) 
499
499
     case(1)
536
536
   use OpenGL_GLUT
537
537
   use spheremod
538
538
 
539
 
   integer(kind=GLbyte), intent(IN), value :: key
540
 
   integer(kind=GLint), intent(in), value  :: x, y
 
539
   integer(kind=GLbyte), value :: key
 
540
   integer(kind=GLint), value  :: x, y
541
541
 
542
542
   character(len=1) :: str
543
543
 
622
622
   use OpenGL_GLUT
623
623
   use spheremod
624
624
 
625
 
   integer(kind=GLint), intent(in), value  :: key, x, y
 
625
   integer(kind=GLint), value  :: key, x, y
626
626
 
627
627
   select case(key)
628
628
     case (glUT_KEY_LEFT)
664
664
   use OpenGL_GL
665
665
   use spheremod
666
666
 
667
 
   integer(kind=GLcint), intent(IN), value :: w, h
 
667
   integer(kind=GLcint), value :: w, h
668
668
   
669
669
   windowWidth  = w
670
670
   shadowWidth  = w