Juan 13/01/2015: remove comment on BCAST(IRESP in FMREADX2_ll

src/LIB/SURCOUCHE/src/fmread_ll.f90

@@ -23,6 +23,7 @@ MODULE MODE_FMREAD
 !Correction :
 !  J.Escobar : 22/08/2005 : BUG : manque un "GOTO 1000" si champs
 !              lue non trouvé !!!
+!  J.Escobar : 13/01/2015 : remove comment on BCAST(IRESP in FMREADX2_ll
 !
 USE MODD_MPIF
 IMPLICIT NONE 
@@ -328,7 +329,7 @@ IF (ASSOCIATED(TZFD)) THEN
     CALL SECOND_MNH2(T1)
     TIMEZ%T_READ2D_READ=TIMEZ%T_READ2D_READ + T1 - T0
     !
-    !JUAN BGQ CALL MPI_BCAST(IRESP,1,MPI_INTEGER,TZFD%OWNER-1,TZFD%COMM,IERR)
+    CALL MPI_BCAST(IRESP,1,MPI_INTEGER,TZFD%OWNER-1,TZFD%COMM,IERR)
     IF (IRESP /= 0) GOTO 1000
     !
     CALL BCAST_HEADER(TZFD,TZFMH)