       AGCM5CRAYؤΰܿʥѥ顼 CRAY Fortran90

97/09/18-

 μCRAY

CRAYFORTRANǤ REAL,REAL*4,REAL*8 ٤٤ˤʤ롣äƼư
٤ץϻȤʤsysmakeSYSAUTODBLˤˡ

 (97/09/10) zhdim.F 縵λѹڤ˵

 ե̾Ĺ38ˤѤޤ100ˤޤ礦ʤgtool
ΥǥեĹˡ

 src/sysdep/yCRAY90.F

 SUBROUTINE ERRTRA

dclOSABR(osabrt.f)б롣dclƱͤ

      CALL ABORT

Ф褤


 SUBROUTINE YCLOC? եߥ꡼

CF90ˤETIMEϤʤCPU֤¬ؿˤ second  tsecond 롣
tsecndϼ¹ԤԤʤ줿CPUλ֤פΤǡޤ󲽤ץ
¬ˤϸʤäơsecondΤߤȤ

  SECOND(3F)                                     Last changed: 4-24-97
     SECOND - Returns elapsed CPU time
  SYNOPSIS
         second=SECOND()
       UNICOS systems:
         CALL SECOND(second)
  DESCRIPTION
        SECOND returns the elapsed user CPU time (a real number in seconds)
     since the start of	a program, including time accumulated by all
     processes in a multitasking program.
        On UNICOS systems, SECOND is not appropriate for timing small timed
     regions.  If the timed region is fewer than 4000 clock periods (CPs)
     in duration, the variation in the accuracy of SECOND can be 10% or
     more on one processor.  On multiple processors, the variation can be
     on the order of 10,000 to 400,000 CPs.
  Example 1:  This example calculates the CPU time used in DOWORK:

          BEFORE = SECOND( )
          CALL DOWORK( )
          AFTER = SECOND( )
          CPUTIME = AFTER - BEFORE

  TSECND(3F)					       Last changed: 3-3-97
    TSECND - Returns elapsed CPU time for a calling task or process
  SYNOPSIS
     second=TSECND()
     CALL TSECND(second)
  DESCRIPTION
     On	UNICOS systems,	this routine returns the elapsed CPU time of a
     calling task since	the start of that task.	 On UNICOS/mk systems, this
     routine returns the elapsed CPU time of a calling process since the
     start of that process.
        TSECND only returns CPU time for the current task or process.  It is
     your responsibility to determine which task or process is running at
     the time the call is made.	 This call may not be useful in	an
     Autotasking environment, because the running user program does not
     know which	task is	actually executing the parallel	regions	of code.

 SUBROUTINE MKFILN      !" ե̾ HCH  HREP ֤

ե̾Ĺ 38 ȤΤϼƤΤǤĤΤ褦 100 


 SUBROUTINE REWNML         !" NAMELISTե, ϴᤷ

ɸϤФ rewind ˸Τɤ狼ʤȤꤢ
ۤäȤܤʤ餽ΤȤ˹ͤ롣

ܤä(97/09/20)̾NAMELISTϤϡɤ߹͡ꥹȤ̾
ΤȰ㤦缡ɤߤ˹ԤΤCRAYξ票顼ˤʤä
ޤAGCMϤΡ̾פΤۤꤷơϴᤷɤ߹
򤹤뤳Ȥ NAMLIST Τ֤⼫ͳˤƤ뤬CRAYǤϤ줬
ʤĤޤꡢ͡ꥹȤν֤ɤ߹¤٤ƴᤷʤ
ʤФʤʤä鲿Τ˥͡ꥹ̾Ƭ˽񤯤Τ
Ass Hole

Ȥ櫓ǡCRAYǤ REWIND ʸ򥳥ȥȡ

 SUBROUTINE YDATE    !" (yyyy mm dd)μ

dclidateѤƤ롣ޤ󥹥ȡ뤵Ƥ뤫狼ʤ
ܤǤȤꤢʤ

 SUBROUTINE YTIME    !" ߻(hh mm ss)μ

dclitimeѤƤ롣ޤ󥹥ȡ뤵Ƥ뤫狼ʤ
ܤǤȤꤢʤ

 src/sysdep/Makefile

packs: ΰ¸ʬ $(SRCS:.F=.pac) CRAYǤϵʤäΤǡ
ȥȡ顼åϰʲ

  Nested macros contain within colon translation not allowed.
    While processing a macro reference, for example $(name:*=*), nested
    macros were found. Nested macro within colon translation are not
    supported.
