Philippe 24/11/2017: IO: remove FMATTR_ll subroutine

src/LIB/SURCOUCHE/src/mode_fm.f90

@@ -51,49 +51,6 @@ IF ( IP .EQ. 1 ) PRINT *,'INIT L1D,L2D,LPACK = ',L1D,L2D,LPACK
 
 END SUBROUTINE SET_FMPACK_ll
 
-SUBROUTINE FMATTR_ll(HFILEM,HFIPRI,KNUMBR,KRESP)
-!JUANZ
-USE MODD_VAR_ll, ONLY : NMNH_COMM_WORLD
-!JUANZ
-USE MODD_IO_ll, ONLY : GSMONOPROC, ISIOP, ISTDOUT
-USE MODE_FD_ll, ONLY : FD_ll,GETFD,NEWFD
-USE MODE_IO_ll, ONLY : IONEWFLU
-CHARACTER(LEN=*), INTENT(IN)  :: HFILEM
-CHARACTER(LEN=*), INTENT(IN)  :: HFIPRI
-INTEGER,          INTENT(OUT) :: KNUMBR
-INTEGER,          INTENT(OUT) :: KRESP
-
-TYPE(FD_ll), POINTER :: TZFD, TZFIPRI
-TYPE(FD_ll), POINTER :: TZJUAN
-
-IF (GSMONOPROC) THEN ! sequential execution
-   TZJUAN=>GETFD(HFILEM)
-   IF (.NOT. ASSOCIATED(TZJUAN)) THEN
-    !! File is not already opened : GOOD
-    !! Add a new FD element
-    TZFD=>NEWFD()
-    TZFD%NAME = HFILEM
-    TZFD%FLU   = IONEWFLU()
-    !
-    KNUMBR = TZFD%FLU
-    KRESP  = NOERROR
-  ELSE 
-    !! Error : File already associated to a fortran logical unit
-    TZFIPRI=>GETFD(HFIPRI)
-    IF (ASSOCIATED(TZFIPRI)) THEN
-      WRITE(TZFIPRI%FLU,*) 'Error FMATTR_ll : file '&
-           & ,TRIM(HFILEM),' already opened'
-    ELSE 
-      WRITE(ISTDOUT,*) 'Error FMLOOK_ll : file ',TRIM(HFILEM)&
-           & ,' already opened'
-    END IF
-    KRESP   = IOERROR
-    KNUMBR  = -1  
-  END IF
-END IF
-
-END SUBROUTINE FMATTR_ll
-
 SUBROUTINE FMLOOK_ll(HFILEM,HFIPRI,KNUMBR,KRESP)
 USE MODD_IO_ll, ONLY : ISTDOUT
 USE MODE_FD_ll, ONLY : FD_ll,GETFD