Cómo escribir la salida en una cadena en fortran?

Question

Necesito escribir un formato de salida para una cadena DTSTR.El uso de la informática para trabajar bajo layhe fortran, pero no gfortran

   INTEGER*2    MON,DAY,YEAR,HR,MINUTE,SEC,HUND
   CHARACTER    DY*2
   CHARACTER    DTSTR*24
   COMMON   /RD/ DTSTR
   ...
   ...
   WRITE(DTSTR,10)MON,DAY,YEAR,HR,MINUTE,DY,' ]'
  10 FORMAT('[ ',I2,'-',I2.2,'-',I4,2X,I2,':',I2.2,1X,2A2)

vacía sólo una línea vacía.Si yo uso la siguiente forma correcta de salida.Pero yo quiero a la tienda de esta cadena.Es posible hacer eso con gnu fortran.

   WRITE(*,10)MON,DAY,YEAR,HR,MINUTE,DY,' ]'

actualización

Estoy tratando de compilar el archivo siguiente.Creo que el problema podría ser con el COMÚN.

      PROGRAM HELO

      CALL DOTIME

      WRITE(*,5700)DTSTR

 5700 FORMAT(24X,A24/)

      END


      SUBROUTINE DOTIME
C
      IMPLICIT NONE
      INTEGER*2    MON,DAY,YEAR,HR,MINUTE,SEC,HUND
      CHARACTER    DY*2
      CHARACTER    DTSTR*24
      COMMON   /RD/ DTSTR

      integer values(8)
      call date_and_time(VALUES=values)

        YEAR   = values(1)
        MON    = values(2)
        DAY    = values(3)
        HR     = values(5)
        MINUTE = values(6)
        SEC    = values(7)
        HUND   = values(8)
C     =================================================
C
C     Incompitable function => CALL GETDAT(YEAR,MON,DAY)
C     Incompitable function => GETTIM(HR,MINUTE,SEC,HUND)
      IF(HR .GE. 12)THEN
           IF(HR .NE. 12)HR=HR-12
           DY='PM'
      ELSE
           DY='AM'
      ENDIF
      WRITE(DTSTR,10)MON,DAY,YEAR,HR,MINUTE,DY,' ]'
   10 FORMAT('[ ',I2,'-',I2.2,'-',I4,2X,I2,':',I2.2,1X,2A2)
      RETURN
      END

Answer 1

¿Mmm? Funciona muy bien para mí:

program testwrite
    implicit none
    INTEGER :: MON,DAY,YEAR,HR,MINUTE,SEC,HUND
    CHARACTER(LEN=2)  :: DY
    CHARACTER(LEN=24) :: DTSTR

    MON = 4
    DAY = 27
    YEAR= 2010
    HR  = 13
    MINUTE = 27
    SEC  = 0
    HUND = 0
    DY   ='WE'

    WRITE(DTSTR,10)MON,DAY,YEAR,HR,MINUTE,DY,' ]'
 10 FORMAT('[ ',I2,'-',I2.2,'-',I4,2X,I2,':',I2.2,1X,2A2)

    print *,'<',trim(DTSTR),'>'

end program testwrite

da

 <[  4-27-2010  13:27 WE ]>

Justo como cabría esperar. Funciona con varias versiones de Gfortran que he estado dando vueltas.

Actualizar: Sí, el problema está en su bloque común. El bloque común no se declara en el programa principal. Pero en realidad, es mucho más simple y mucho mejor práctica solo pasar la cadena como argumento:

      PROGRAM HELO
      IMPLICIT NONE
      CHARACTER(LEN=24) :: DTSTR

      CALL DOTIME(DTSTR)

      WRITE(*,5700)DTSTR

 5700 FORMAT(24X,A24/)

      END


      SUBROUTINE DOTIME(DTSTR)
C
      IMPLICIT NONE
      INTEGER*2    MON,DAY,YEAR,HR,MINUTE,SEC,HUND
      CHARACTER    DY*2
      CHARACTER(LEN=24), INTENT(OUT) ::   DTSTR