1
2
3
4
5
6
7
8
9
10
11
12
|
C----------------------------------------------------------------------
subroutine ftgbnh(iunit,nrows,nfield,ttype,tform,tunit,
& extnam,pcount,status)
C OBSOLETE routine: should call ftghbn instead
integer iunit,nrows,nfield,pcount,status
character*(*) ttype(*),tform(*),tunit(*),extnam
call ftghbn(iunit,-1,nrows,nfield,ttype,tform,
& tunit,extnam,pcount,status)
end
|
