← Back to branch summary

~hwkrus/f03gl/trunk

« back to all changes in this revision

Viewing changes to bluebook/toon.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/toon.f90
15
15
 
16
16
     subroutine ChangeSize(w,h) bind(C)
17
17
       use opengl_gl
18
 
       integer(glcint), intent(in), value :: w,h
 
18
       integer(glcint), value :: w,h
19
19
     end subroutine ChangeSize
20
20
 
21
21
     subroutine KeyPressFunc(key, x,y) bind(C)
22
22
       use opengl_gl
23
 
       integer(kind=GLbyte), intent(IN), value :: key
24
 
       integer(kind=GLint), intent(in), value  :: x, y
 
23
       integer(kind=GLbyte), value :: key
 
24
       integer(kind=GLint), value  :: x, y
25
25
     end subroutine KeyPressFunc
26
26
 
27
27
     recursive subroutine TimerFunction(i) bind(C)
28
 
       integer, intent(in), value :: i
 
28
       integer, value :: i
29
29
     end subroutine TimerFunction
30
30
   end interface
31
31
     
49
49
   use OpenGL_GL
50
50
   use OpenGL_GLUT
51
51
 
52
 
   integer(kind=GLbyte), intent(IN), value :: key
53
 
   integer(kind=GLint), intent(in), value  :: x, y
 
52
   integer(kind=GLbyte), value :: key
 
53
   integer(kind=GLint), value  :: x, y
54
54
 
55
55
   if( key == 27 )then
56
56
     stop
184
184
 
185
185
   use opengl_glut
186
186
 
187
 
   integer, intent(in), value :: ivalue
 
187
   integer, value :: ivalue
188
188
 
189
189
   call glutPostRedisplay()
190
190
   call glutTimerFunc(33,TimerFunction, 1)
195
195
   use OpenGL_GL
196
196
   use OpenGL_GLu
197
197
 
198
 
   integer(kind=GLcint), intent(IN), value :: win, hin
 
198
   integer(kind=GLcint), value :: win, hin
199
199
   integer(kind=GLcint) :: w, h
200
200
   real(kind=GLdouble)  :: Zero, One, Aspect
201
201