1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
m4_include(`fcblib_defines.m4')m4_dnl
` INTEGER FUNCTION FCB_OPEN_CIFIN(FILNAM,TAPIN,LAST_CHAR, &
FCB_BYTES_IN_REC,BYTE_IN_FILE,REC_IN_FILE,BUFFER)
!-----------------------------------------------------------------------
! FILNAM - Name of the file countaining the image (GIVEN)
! TAPIN - Fortran device unit number assigned to image file (GIVEN)
! LAST_CHAR -
! Last character read (RESULT)
! FCB_BYTES_IN_REC -
! Number of bytes in a record (GIVEN)
! BYTE_IN_FILE -
! Byte (counting from 1) of the byte to read (RESULT)
! REC_IN_FILE -
! Record (counting from 1) of next record to read (RESULT)
! BUFFER - Array of length FCB_BYTES_IN_REC (GIVEN)
!-----------------------------------------------------------------------
IMPLICIT NONE
CHARACTER(len=*),INTENT(IN) :: FILNAM
INTEGER, INTENT(IN) :: TAPIN,FCB_BYTES_IN_REC
INTEGER(1), INTENT(OUT):: LAST_CHAR
INTEGER, INTENT(OUT):: BYTE_IN_FILE,REC_IN_FILE
INTEGER(1), INTENT(INOUT):: BUFFER(FCB_BYTES_IN_REC)
INTEGER FCB_RECORD_SIZE
'
fcb_errcode_CBF_FORMAT
fcb_errcode_CBF_FILEOPEN
fcb_errcode_CBF_FILEREAD
fcb_interface_FCB_CI_STRNCMPARR
fcb_macro_FCB_OPEN_CIFIN(`IOSTAT=FCB_OPEN_CIFIN',
`IOSTAT=FCB_OPEN_CIFIN',
`THEN
FCB_OPEN_CIFIN = CBF_FILEREAD
ENDIF')`
RETURN
END FUNCTION FCB_OPEN_CIFIN'
|
