                                                    : 2004 ǯ 2  27  

Sun[tm] Studio 9: Fortran ץץå fpp Readme 

    ܼ
        Ϥ 
         
        » 

----------------------------------------------------------------------------

Ϥ 

Fortran Υץߥ󥰴ĶǤϡ1 ĤΥɤФʣСδ
¿ͤʴĶˤ륳ɤμ¹Ԥ׵ᤵ̤ȤǤϤޤ
н褹硢ץޤ˺ǤԹΤˡϡС
Υɤ 1 ĤΥե˥󥿥꡼֤ơǤդΥСñ
ФǤ褦ˤ뤳ȤǤ ˡǡ٤ƤΥСŬѤѹ
٤˺Ѥޤ뤳ȤǤޤ

ŪĹѤƤƤΤɥץץåǤ 
ɥץץåѤȡˡץץåνϤ
Ѥʸ뤳ȤǤޤ

̾ϡΤ褦̤ʻϡѥؤΥȹԤȤɽޤ
̤ˡɥץץåǤϡѥϤԤȥåפ
Ԥդ椹üѿʸ桼뤳ȤǤޤ
ޤץץåΥԽǽǤϡƤʸѿͤ
äƥɤѹˡꤹ뤳ȤǤޤ

衢ɸŪ C ѥ˸줿ɥץץå (cpp) ϡ
Fortran ץޤˤΤ褦ʵǽ󶡤뤿ѤƤޤ 
ʤ顢cpp ϡڤ˻ȤˤϡC θ칽ʸȥԽ񼰤ˤޤˤ̩
ˤꤹƤޤ Fortran ץץå (fpp) ϡC Υץޤ
 UNIX ĶǤλѤԤƤ Fortran ͭΥɵǽ󶡤


fpp εǽΰϡ¾ΥġǤκѤǽǤ fpp μˤϡ
Fortran ιʸϡʬϡFortran ɾFortran Ϥʤɤε
ǽɬפǤ εǽϡ¾ΥġǤ Fortran ץγȯɬ
ʹ٤ʴĶ¸뤿ɬܤδǤǤ

ʲǤϡfpp εǽܤޤ ˾ܤƤϡfpp(1) Υޥ˥
ڡ򻲾ȤƤ


----------------------------------------------------------------------------



fpp ϥ 

fpp ϥϡץץåʸϤ߹ޤ줿ɸŪ Fortran Ǥ
ץץåʸϡĤͤüʸ # ǻϤޤޤ ʸϡԤƬʸ
֤ˤΤ߻ꤷޤ # ľˤϡץץåޥɤΥƥȤ³
ɬפޤ 

ץץåϡFortran Ǥޤ ץץåˤ
ꡢFortran ΥƥȤѹǽǤ

ץץåϡꤪӼͳξ񼰤Υޤ ĥҤȤ
񼰤Υեˤ .Fͳ񼰤Υեˤ .F90 դ
θ񼰤Υե̾§ϡFortran 77  Fortran 90 ξŬѤ
뤳ȤդƤ γĥҤĥեϤ
¹ԤƤ顢Ŭڤʥѥ餬ưޤ

ޥŸޤʸִˤä 1 ԤΥ 72  ()
ޤ 132  (ͳ) Ķ硢ץץåŬ³Ԥ
ޤ

ץץåѿ 

ץץåѿϡѤơʸͤѿȤޤ
fpp ϡ ǥץץåѿи뤴Ȥˡ꤬Ŭڤʤ
Ф֤ͤޤ ѿϤޤ˻ꤷơϤϤ
ɹԤǤޤ 

    #define name string
 
λϡѿnameפͤstringפޤ η̡٤Ƥ
ȡname(IMPLICIT ʸϰϻFORMAT ʸΥƥȡʸ
ƥʳ) ϡstringפ˥ƥ֤ޤ 

: IMPLICIT ʸϰϻʬFORMAT ʸΥƥȤξϡΥƥ
ȤͭʥƥȾͤΤߥޥŸԤޤ

֥ޥפΤ褦ˡΥ饤ִԤȤǤޤ 

    #define name (arg1 [,arg2]...) string-with-args-inserted
 
: 
    #define SOLARIS_2 .TRUE.
    #define CONVERT(TO_FARENHEIT) ((TO_FARENHEIT*9)/5)+32
 
ץץåѿϡݥȤ饳ѥñ̤ޤͭǤ
(ʤեΤˤ錄ŪʥפǤ) 

ץץåѿϡʸѤŪǤޤ 

    #undef name

 

Fortran ץץåФơ/*  */ ǰϤC ΥȤѤ
ޤ

ɤξդ 

ϡcpp ξդɹʸˤȤŤƤޤ

    #if condition1
    block1
    [#elif condition2
    block2 ]
    ...
    [#else
    blockn ]
    #endif
 
ޤ

    #ifdef name
    block
    #endif
    #ifndef name
    block
    #endif
 
 (condition1condition2) ϡץץåѿ (#define ʸǻ) 
 fpp μǤ ϡ̤ǰϤǻǤ뤳ȤդƤ fpp
μϡFortran ɾǤ cpp μΥѡåȤǤ 
Τᡢfpp μǤϡ.TRUE ͭǤ ץץåϤξɾ
ơޤϵη̤ޤ ưͤɾ⡢Ȥ߹ߴؿ
Υ󥯥롼ɤǤޤ 

 : 

    #define SOLARIS_2 .TRUE.
    #if (SOLARIS_2)
    CALL solaris_2 (X,Y,Z)
    #else
    CALL solaris_1 (X,Y,Z)
    #endif

եμ 

ե˥ץץåѿޤȤȡʤȤޤ ϡ
ʸѤƹԤȤǤޤ 

    #include filename
 
#include Ҥˤ뤳ȤǤޤ #include ʸ³Ԥ˻ꤹ뤳Ȥ
Ǥޤ (Ĥޤꡢ󥯥롼ɤեκǽʸ³Ԥ˻ꤹ뤳
ȤϤǤޤ) 

ץץåȤ߹ߴؿ 

defined(name) ϡ֤̾󶡤ޤ name Ƥ뤫ɤ
ǡTRUE ޤ FALSE ֤ޤ ̾defined(name)  #if ʸǻѤ


    #if defined(BIG_MODEL)

ޥɹԥץ 

̾fpp  Fortran ѥɥ饤ФƤӽФޤ ޤɥ
ǸƤӽФȤǤޤ ʲˡfpp ˻ѤǤ륪ץΰ
ޤ 

-Dname

    name  1 ޤϡfpp Ƥ륽ե 
    #define name1 ιԤ򵭽ҤΤƱȤǤ 

-Dname=def

    ϡfpp Ƥ륽ե #define name def ιԤ򵭽Ҥ
    ΤƱȤǤ 

-Idirectory

    ̾å (/) ʳʸǻϤޤ #include եθѥ
    directoryפޤ directoryפϡɸΡincludeץǥ쥯
    ꥹȤƬޤ Τᡢ̾Ű (") ǰϤޤ줿
    #include եθϡǽ餬 #include Ԥޤե뤬¸ߤ
    ǥ쥯ȥꡢ2 ܤ -I ץǻꤵ줿ǥ쥯ȥꡢǸ夬ɸ
    ꥹȤΥǥ쥯ȥνˤʤޤ 

-Uname

    nameפνޤnameפϡץץåˤäƻ
    Ƥ̾Ǥ 

-Ydirectory

    #include եõȤɸΥǥ쥯ȥꥹȤǤϤʤ
    directoryפѤޤ 


----------------------------------------------------------------------------

fpp λѤ˴ؤܤƤϡfpp(1) Υޥ˥奢ڡ򻲾ȤƤ
fpp ɤ NetLibhttp://www.netlib.org/fortran ɤ
ޤ


----------------------------------------------------------------------------

»

  * 1  6 ܤޤǤΥޥ:? fpp ϸ񼰤Υե ( ȤС.F
    ĥҤΤĤե)  1  6 ܤΥޥŸޤfpp
    ϸ񼰤 Fortran §˽ԤƬ 6 ܤޤǡ ޤ 72
    ܤĶʸ¸ߤ뤳Ȥͽޤ ͣβϡ ͳ
     (.F90 ޤ .F95 γĥҤΤĤե) Ѥ뤫 줬Բ
    ǽʤ顢cpp ѤơƬ 6 ΥޥŸƤ 
    (4315099) 


----------------------------------------------------------------------------

Copyright (C) 2004 Sun Microsystems, Inc. All rights reserved. Use is 
subject to license terms.

