!-------------------------------------------------------------------------------
! 20070524 Adaptación al compilador gfortran de GNU
!-------------------------------------------------------------------------------

Los archivos mef1d.for y lib1d.for contienen las subrutinas diseñadas para
los compiladores Digital Fortran 77 (OpenVMS) y Compaq Fortran 90 (True64Unix)
(y otros compatibles con los anteriores).

Se crean los archivos mef1d.f y lib1d.f adaptados al compilador GFortran de
GNU.

El compilador GFortran de GNU no contempla todavía la opción D_LINES ni la
especificación de formato "q" (query remaining character count).

Por estos motivos:
  1) en los archivos mef1d.f y lib1d.f se prescinde de la opción D_LINES
     (con lo que las subrutinas sólo pueden funcionar en precisión doble) y
  2) Se ha sustituido la instrucción

       read(5,'(q,a)') lon,archivo(1:lon)

     por las instrucciones

       read(5,'(a)') archivo
       lon=len(archivo)
       do while(lon.gt.2.and.archivo(lon:lon).eq.' ')
         lon=lon-1
       enddo

     que realizan la misma función.



!-------------------------------------------------------------------------------
! 20070524 Extracción de la subrutina SRV$Get_CpuTime
!-------------------------------------------------------------------------------

La subrutina SRV$Get_CpuTime ha sido extraída de lib1d (.for, .f).
En lo sucesivo será necesario linkar mef1d con la subrutina
adecuada al sistema operativo y al compilador que se vayan a utilizar.
Los correspondientes archivos modcpu (.for, .f) se encuentran en las subcarpetas
(OpenVMS_Fortran77, True64Unix_f90, WXP-Linux_GFortran) de la carpeta CPU.


!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------