← Back to branch summary

~hwkrus/f03gl/trunk

« back to all changes in this revision

Viewing changes to bluebook/thunderbird.f90

  • Committer: dolfyn
  • Date: 2016-08-18 14:00:50 UTC
  • Revision ID: hwkrus@gmail.com-20160818140050-i5t1oinh3z99ytfg
Starrynight fixed

Show diffs side-by-side

added added

removed removed

Lines of Context:
bluebook/thunderbird.f90
152
152
     function fgltLoadTGA(FileName,iw,ih,ic,eform,image) 
153
153
       use, intrinsic :: iso_c_binding
154
154
       type(C_PTR), pointer :: fgltLoadTGA
155
 
       character, dimension(*), intent(IN) :: FileName
156
 
       integer(C_INT), intent(OUT)  :: iw,ih 
157
 
       integer(C_INT), intent(OUT) :: ic,eform
 
155
       character, dimension(*), intent(in) :: FileName
 
156
       integer(C_INT), intent(out)  :: iw,ih 
 
157
       integer(C_INT), intent(out) :: ic,eform
158
158
       integer(C_CHAR), dimension(:), allocatable, intent(out), target :: image
159
159
     end function
160
160
   end interface
164
164
       use, intrinsic :: iso_c_binding
165
165
       use opengl_gl
166
166
       type(C_PTR), pointer :: gltLoadTGA
167
 
       character, dimension(*), intent(IN) :: FileName
168
 
       integer(kind=GLint), intent(OUT)  :: iw,ih 
169
 
       integer(kind=GLenum), intent(OUT) :: ic,eform
 
167
       character, dimension(*), intent(in) :: FileName
 
168
       integer(kind=GLint), intent(out)  :: iw,ih 
 
169
       integer(kind=GLenum), intent(out) :: ic,eform
170
170
     end function
171
171
   end interface
172
172