!------------------------------------------------------------------------------- ! 20070305 Adaptación al compilador gfortran de GNU !------------------------------------------------------------------------------- Los archivos circuito.for y libcm.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 circuito.f y libcm.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 circuito.f y libcm.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. !------------------------------------------------------------------------------- ! 20070305 Extracción de la subrutina SRV$Get_CpuTime !------------------------------------------------------------------------------- La subrutina SRV$Get_CpuTime ha sido extraída de libcm (.for, .f). En lo sucesivo será necesario linkar circuito 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. !------------------------------------------------------------------------------- ! 20011109 Nueva subrutina PAR$Rotular !------------------------------------------------------------------------------- La escritura de los encabezamientos de cada uno de los bloques en el archivo de resultados se realiza ahora mediante una llamada a la subrutina PAR$Rotular, en lugar de insertar directamente las instrucciones de escritura en el programa principal. De esta forma se reduce ligeramente el tamaño del programa principal. !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- !-------------------------------------------------------------------------------