← Back to branch summary

~hwkrus/f03gl/trunk

« back to all changes in this revision

Viewing changes to bluebook/thunderbirdgl.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/thunderbirdgl.f90
145
145
     function fgltLoadTGA(FileName,iw,ih,ic,eform,image) 
146
146
       use, intrinsic :: iso_c_binding
147
147
       type(C_PTR), pointer :: fgltLoadTGA
148
 
       character, dimension(*), intent(IN) :: FileName
149
 
       integer(C_INT), intent(OUT)  :: iw,ih 
150
 
       integer(C_INT), intent(OUT) :: ic,eform
 
148
       character, dimension(*), intent(in) :: FileName
 
149
       integer(C_INT), intent(out)  :: iw,ih 
 
150
       integer(C_INT), intent(out) :: ic,eform
151
151
       integer(C_CHAR), dimension(:), allocatable, intent(out), target :: image
152
152
     end function
153
153
   end interface