FlorentG | uriel a écrit :
c'est bien pour toi
Code :
- C*MODULE IOLIB *DECK PKRD
- SUBROUTINE PKRD(IS,XP,XK,IX,NX,MAX,MAX2)
- IMPLICIT DOUBLE PRECISION (A-H,O-Z)
- LOGICAL GOPARR,DSKWRK,MASWRK
- DIMENSION XP(MAX),XK(MAX),IX(MAX2)
- COMMON /PAR / ME,MASTER,NPROC,IBTYP,IPTIM,GOPARR,DSKWRK,MASWRK
- C
- IF (DSKWRK.OR.MASWRK) READ(IS,END=200,ERR=300) NX,IX,XP,XK
- RETURN
- C
- 200 CONTINUE
- WRITE(6,9010) ME,IS
- 9010 FORMAT(1X,'PKRD: NODE',I4,
- * ' ENCOUNTERED UNEXPECTED END OF FILE READING UNIT',I4)
- CALL ABRT
- C
- 300 CONTINUE
- WRITE(6,9020) ME,IS
- 9020 FORMAT(1X,'PKRD: NODE',I4,
- * ' ENCOUNTERED I/O ERROR READING UNIT',I4)
- CALL ABRT
- C
- RETURN
- END
|
|
Pendant l'espace d'une seconde, les termes "MODULE IOLIB" et "SUBROUTINE" ont fusionné dans mon cerveau, me faisant lire "MOULE BITE" |