WSJT-X/fstatqqq.f90

subroutine fstatqqq(lu,istat,ierr)

#ifdef CVF
  use dfport
#endif

#ifdef CVF
  ierr=fstat(lu,istat)
#else
  call fstat(lu,istat,ierr)
#endif

  return
end subroutine fstatqqq
Additional needed files git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@336 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 16:48:10 -05:00			`subroutine fstatqqq(lu,istat,ierr)`

Made importing of numpy/Numeric more flexible, as in WSJT. Changed compile-time flag Win32 to CVF (for Compaq Visual Fortran). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@618 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-12-31 10:15:55 -05:00			`#ifdef CVF`
Additional needed files git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@336 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 16:48:10 -05:00			`use dfport`
			`#endif`

Made importing of numpy/Numeric more flexible, as in WSJT. Changed compile-time flag Win32 to CVF (for Compaq Visual Fortran). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@618 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-12-31 10:15:55 -05:00			`#ifdef CVF`
Additional needed files git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@336 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 16:48:10 -05:00			`ierr=fstat(lu,istat)`
			`#else`
			`call fstat(lu,istat,ierr)`
			`#endif`

			`return`
			`end subroutine fstatqqq`