Code :
- C*MODULE IOLIB *DECK RARD
- SUBROUTINE RARD(V,LEN,IRAF,NS)
- IMPLICIT DOUBLE PRECISION (A-H,O-Z)
- LOGICAL GOPARR,DSKWRK,MASWRK
- DIMENSION V(LEN)
- COMMON /PAR / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
- C
- C ----- READ A PHYSICAL RECORD FROM IRAF -----
- C
- IF(MASWRK .OR. DSKWRK) READ(UNIT=IRAF,REC=NS) V
- C
- IF(GOPARR .AND. .NOT.DSKWRK) THEN
- CALL DDI_BCAST(225,'F',V,LEN,MASTER)
- END IF
- RETURN
- END
|