!------------------------------------------------------------------------------- ! 20070410 Adaptación al compilador gfortran de GNU !------------------------------------------------------------------------------- Los archivos cmepcgem.for y libcmepcgem.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 cmepcgem.f y libcmepcgem.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 cmepcgem.f y libcmepcgem.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. !------------------------------------------------------------------------------- ! 20070410 Extracción de la subrutina SRV$Get_CpuTime !------------------------------------------------------------------------------- La subrutina SRV$Get_CpuTime ha sido extraída de libcmepcgem (.for, .f). En lo sucesivo será necesario linkar cmepcgem 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. !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- !-------------------------------------------------------------------------------