Microsoft Fortran Powerstation

Thread View: fj.lang.fortran

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by LAM, Wan Chung Wed, 05 Nov 1997 00:00

#179

Author: LAM, Wan Chung
Date: Wed, 05 Nov 1997 00:00

36 lines
1810 bytes

$BNS!wF|N)B$A%$G$9!#(B

Fortran$B$N%W%m%0%i%`$r=q$-$^$7$?!#7W;;;~4V$r(B
$B7W$j$?$$$N$G!"7W;;$N:G=i$H:G8e$K(B
$B;~4V$r=PNO$7$h$&$H;W$$$^$7$?!#%^%$%/%m%=%U%H(B
$B$N(Bfortran powerstation$B$G$O!"(BTIMDY$B$H$$$&(BIMSL
$B4X?t$,$"$j$^$9$,!"%W%m%0%i%`$KF~$l$?$i!"(B
$B%j%s%/$9$k$H$-$K!V8+$D$1$J$$!W$H$$$&%(%i!<$,=P$^$7$?!#(B

IMSL$B4X?t$r;H$&$K$O!"2?$+$7$J$1$l$P$J$i$J$$$G$7$g$&$+!)(B

$B%W%m%0%i%`$O(Bconsole application$B$N7A$G:n$C$?$s$G$9$,!"(B
$B%W%m%0%i%`$ONc$($P2<5-$N4JC1$J$b$N$G$b$@$a$G$7$?!#(B

      INTEGER    IHOUR, IMIN, ISEC, NOUT
      EXTERNAL   TIMDY, UMACH
C
      CALL TIMDY (IHOUR, IMIN, ISEC)
      CALL UMACH (2, NOUT)
      WRITE (NOUT,*) 'Hour:Minute:Second = ', IHOUR, ':', IMIN,
     &              ':', ISEC
      IF (IHOUR .EQ. 0) THEN
         WRITE (NOUT,*) 'The time is ', IMIN, ' minute(s), ', ISEC,
     &                 ' second(s) past midnight.'
      ELSE IF (IHOUR .LT. 12) THEN
         WRITE (NOUT,*) 'The time is ', IMIN, ' minute(s), ', ISEC,
     &                 ' second(s) past ', IHOUR, ' am.'
      ELSE IF (IHOUR .EQ. 12) THEN
         WRITE (NOUT,*) 'The time is ', IMIN, ' minute(s), ', ISEC,
     &                 ' second(s) past noon.'
      ELSE
         WRITE (NOUT,*) 'The time is ', IMIN, ' minute(s), ', ISEC,
     &                 ' second(s) past ', IHOUR-12, ' pm.'
      END IF
      END

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads