← Back to branch summary

~hwkrus/f03gl/trunk

« back to all changes in this revision

Viewing changes to bluebook/texgen.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/texgen.f90
29
29
     end subroutine RenderScene
30
30
 
31
31
     subroutine ProcessMenu(i) bind(C)
32
 
       integer, intent(in), value :: i
 
32
       integer, value :: i
33
33
     end subroutine ProcessMenu
34
34
 
35
35
     subroutine ChangeSize(w,h) bind(C)
36
36
       use opengl_gl
37
 
       integer(glcint), intent(in), value :: w,h
 
37
       integer(glcint), value :: w,h
38
38
     end subroutine ChangeSize
39
39
 
40
40
     subroutine KeyPressFunc(key, x,y) bind(C)
41
41
       use opengl_gl
42
 
       integer(kind=GLbyte), intent(IN), value :: key
43
 
       integer(kind=GLint), intent(in), value  :: x, y
 
42
       integer(kind=GLbyte), value :: key
 
43
       integer(kind=GLint), value  :: x, y
44
44
     end subroutine KeyPressFunc
45
45
 
46
46
     recursive subroutine TimerFunction(i) bind(C)
47
 
       integer, intent(in), value :: i
 
47
       integer, value :: i
48
48
     end subroutine TimerFunction
49
49
 
50
50
     subroutine KeySpecialFunc(key, x,y) bind(C)
51
51
       use opengl_gl
52
 
       integer(kind=GLint), intent(in), value  :: key, x, y
 
52
       integer(kind=GLint), value  :: key, x, y
53
53
     end subroutine KeySpecialFunc
54
54
   end interface
55
55
        
83
83
 
84
84
   use spheremod
85
85
   
86
 
   integer, intent(in), value :: in
 
86
   integer, value :: in
87
87
 
88
88
   real, dimension(4) :: zPlane= (/ 0.0, 0.0, 1.0, 0.0 /)
89
89
   
279
279
 
280
280
   use spheremod
281
281
 
282
 
   integer(kind=GLint), intent(in), value  :: key, x, y
 
282
   integer(kind=GLint), value  :: key, x, y
283
283
 
284
284
   if( key == GLUT_KEY_UP)    xRot = xrot - 5.0
285
285
   if( key == GLUT_KEY_DOWN)  xRot = xrot + 5.0
307
307
   use OpenGL_GL
308
308
   use OpenGL_GLu
309
309
 
310
 
   integer(kind=GLcint), intent(IN), value :: win, hin
 
310
   integer(kind=GLcint), value :: win, hin
311
311
   integer(kind=GLcint) :: w, h
312
312
   real(kind=GLdouble)  :: Zero, One, Aspect
313
313
 
337
337
 
338
338
   use spheremod
339
339
 
340
 
   integer(kind=GLbyte), intent(in), value :: key
341
 
   integer(kind=GLint), intent(in), value  :: x, y
 
340
   integer(kind=GLbyte), value :: key
 
341
   integer(kind=GLint), value  :: x, y
342
342
 
343
343
   if( key == 27 )then
344
344
     call glDeleteTextures(TEXTURE_COUNT, totextures)