← Back to branch summary

~hwkrus/f03gl/trunk

« back to all changes in this revision

Viewing changes to bluebook/sphereworld5.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/sphereworld5.f90
62
62
 
63
63
     subroutine ProcessMenu(i) bind(C)
64
64
       use opengl_gl
65
 
       integer(glcint), intent(in), value :: i
 
65
       integer(glcint), value :: i
66
66
     end subroutine ProcessMenu
67
67
 
68
68
     subroutine ChangeSize(w,h) bind(C)
69
69
       use opengl_gl
70
 
       integer(glcint), intent(in), value :: w,h
 
70
       integer(glcint), value :: w,h
71
71
     end subroutine ChangeSize
72
72
 
73
73
     subroutine KeyPressFunc(key, x,y) bind(C)
74
74
       use opengl_gl
75
 
       integer(kind=GLbyte), intent(IN), value :: key
76
 
       integer(kind=GLint), intent(in), value  :: x, y
 
75
       integer(kind=GLbyte), value :: key
 
76
       integer(kind=GLint), value  :: x, y
77
77
     end subroutine KeyPressFunc
78
78
 
79
79
     recursive subroutine TimerFunction(i) bind(C)
80
 
       integer, intent(in), value :: i
 
80
       integer, value :: i
81
81
     end subroutine TimerFunction
82
82
 
83
83
     subroutine KeySpecialFunc(key, x,y) bind(C)
84
84
       use opengl_gl
85
 
       integer(kind=GLint), intent(in), value  :: key, x, y
 
85
       integer(kind=GLint), value  :: key, x, y
86
86
     end subroutine KeySpecialFunc
87
87
   end interface
88
88
     
120
120
 
121
121
   use spheremod
122
122
   
123
 
   integer, intent(in), value :: in
 
123
   integer, value :: in
124
124
 
125
125
   Method = in
126
126
      
332
332
!
333
333
   use opengl_glut
334
334
 
335
 
   integer, intent(in), value :: ivalue
 
335
   integer, value :: ivalue
336
336
 
337
337
   call glutPostRedisplay()
338
338
   call glutTimerFunc(3,TimerFunction, 1)
343
343
   use OpenGL_GL
344
344
   use OpenGL_GLu
345
345
 
346
 
   integer(kind=GLcint), intent(IN), value :: win, hin
 
346
   integer(kind=GLcint), value :: win, hin
347
347
   integer(kind=GLcint) :: w, h
348
348
   real(kind=GLdouble)  :: Zero, One, Aspect
349
349
 
374
374
 
375
375
   use spheremod
376
376
 
377
 
   integer(kind=GLbyte), intent(in), value :: key
378
 
   integer(kind=GLint), intent(in), value  :: x, y
 
377
   integer(kind=GLbyte), value :: key
 
378
   integer(kind=GLint), value  :: x, y
379
379
 
380
380
   if( key == 27 )then
381
381
     call glDeleteLists(groundList, 3)
391
391
 
392
392
   use spheremod
393
393
 
394
 
   integer(kind=GLint), intent(in), value  :: key, x, y
 
394
   integer(kind=GLint), value  :: key, x, y
395
395
 
396
396
   if( key == GLUT_KEY_UP)    call MoveForward (frameCamera, 0.1)
397
397
   if( key == GLUT_KEY_DOWN)  call MoveForward (frameCamera,-0.1)