← Back to branch summary

~hwkrus/f03gl/trunk

« back to all changes in this revision

Viewing changes to bluebook/solar.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/solar.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
88
88
   use OpenGL_GL
89
89
   use OpenGL_GLUT
90
90
 
91
 
   integer(kind=GLbyte), intent(IN), value :: key
92
 
   integer(kind=GLint), intent(in), value  :: x, y
 
91
   integer(kind=GLbyte), value :: key
 
92
   integer(kind=GLint), value  :: x, y
93
93
 
94
94
   if( key == 27 ) stop
95
95
   
156
156
 
157
157
   use opengl_glut
158
158
 
159
 
   integer, intent(in), value :: ivalue
 
159
   integer, value :: ivalue
160
160
 
161
161
   call glutPostRedisplay()
162
162
   call glutTimerFunc(100,TimerFunction, 1)
167
167
   use OpenGL_GL
168
168
   use OpenGL_GLu
169
169
 
170
 
   integer(kind=GLcint), intent(IN), value :: win, hin
 
170
   integer(kind=GLcint), value :: win, hin
171
171
   integer(kind=GLcint) :: w, h
172
172
   real(kind=GLdouble)  :: Zero, One, Aspect
173
173