← Back to branch summary

~hwkrus/f03gl/trunk

« back to all changes in this revision

Viewing changes to bluebook/stencil.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/stencil.f90
16
16
 
17
17
     subroutine ChangeSize(w,h) bind(C)
18
18
       use opengl_gl
19
 
       integer(glcint), intent(in), value :: w,h
 
19
       integer(glcint), value :: w,h
20
20
     end subroutine ChangeSize
21
21
 
22
22
     subroutine KeyPressFunc(key, x,y) bind(C)
23
23
       use opengl_gl
24
 
       integer(kind=GLbyte), intent(IN), value :: key
25
 
       integer(kind=GLint), intent(in), value  :: x, y
 
24
       integer(kind=GLbyte), value :: key
 
25
       integer(kind=GLint), value  :: x, y
26
26
     end subroutine KeyPressFunc
27
27
 
28
28
     subroutine TimerFunction(i) bind(C)
29
 
       integer, intent(in), value :: i
 
29
       integer, value :: i
30
30
     end subroutine TimerFunction
31
31
 
32
32
   end interface
58
58
   use OpenGL_GL
59
59
   use OpenGL_GLUT
60
60
 
61
 
   integer(kind=GLbyte), intent(IN), value :: key
62
 
   integer(kind=GLint), intent(in), value  :: x, y
 
61
   integer(kind=GLbyte), value :: key
 
62
   integer(kind=GLint), value  :: x, y
63
63
 
64
64
   if( key == 27 ) stop
65
65
   
121
121
 
122
122
   use opengl_glut
123
123
 
124
 
   integer, intent(in), value :: ivalue
 
124
   integer, value :: ivalue
125
125
 
126
126
   real :: x, y, rsize, xstep, ystep, windowWidth, windowHeight
127
127
   common  x, y, rsize, xstep, ystep, windowWidth, windowHeight
153
153
   
154
154
   use OpenGL_GL
155
155
 
156
 
   integer(kind=GLcint), intent(IN), value :: win, hin
 
156
   integer(kind=GLcint), value :: win, hin
157
157
   integer(kind=GLcint) :: w, h
158
158
   real(kind=GLdouble)  :: Zero, One, windowWidth, windowHeight, Aspect
159
159