← Back to branch summary

~hwkrus/f03gl/trunk

« back to all changes in this revision

Viewing changes to bluebook/scissor.f90

  • Committer: dolfyn
  • Date: 2016-08-17 18:14:14 UTC
  • Revision ID: hwkrus@gmail.com-20160817181414-wn0uvyru2eisw9jv
greenbook, value attribute already signals intent(in)

Show diffs side-by-side

added added

removed removed

Lines of Context:
bluebook/scissor.f90
21
21
 
22
22
     subroutine ChangeSize(w,h) bind(C)
23
23
       use opengl_gl
24
 
       integer(glcint), intent(in), value :: w,h
 
24
       integer(glcint), value :: w,h
25
25
     end subroutine ChangeSize
26
26
 
27
27
     subroutine KeyPressFunc(key, x,y) bind(C)
28
28
       use opengl_gl
29
 
       integer(kind=GLbyte), intent(IN), value :: key
30
 
       integer(kind=GLint), intent(in), value  :: x, y
 
29
       integer(kind=GLbyte), value :: key
 
30
       integer(kind=GLint), value  :: x, y
31
31
     end subroutine KeyPressFunc
32
32
 
33
33
   end interface
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 ) stop
56
56
 
60
60
   use OpenGL_GL
61
61
   use OpenGL_GLU
62
62
 
63
 
   integer(kind=GLcint), intent(IN), value :: win, hin
 
63
   integer(kind=GLcint), value :: win, hin
64
64
   integer(kind=GLcint) :: w, h
65
65
   real(kind=GLdouble)  :: Zero, One, Range = 100.0, Aspect
66
66