2004  2  27 ո


      Sun[tm] Studio 9Fortran Ԥ fpp ļ


        Ŀ¼

        *  <#Intro>
        * 淶 <#Spec>
        * ֪ <#Limitations>

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


  

Fortran ԱҪάһϵĴ汾ڸֻд롣
ڱԱ˵׵Ľ취ǱԴļд໥
ڸļУͿɵȡκΰ汾һа汾
õ޸ֻһΡ

ԴԤǰͱṩЩܡûԴв
ָӰԤ

ͨЩָΪעг֡һԣԴԤ
û߼ؿļЩԴн͸
ЩнԹ⣬ԤԴб༭û
ֵַָθԴ롣

ʷϣ׼ C ԴԤ cpp  Fortran 
ԱṩЩܡȻcpp ܵ C ﷨ԴиʽĽ
ûϸͲʹá Fortran Ԥ fpp ṩ Fortran
ضԴ빦ܣC Ա UNIX ʵЩܡ

²ֽϸ fpp Ĺܡ꾡Ϣμ fpp(1)
<../man1/fpp.1.html> ֲҳ
fpp һʵֱͺͷ Fortran Դ롢 Fortran ʽ
Fortran Ҫṩһǿ Fortran 򿪷Щ
ܽЩߵĹ

²ֽϸ fpp Ĺܡ꾡Ϣμ fpp(1)
<../man1/fpp.1.html> ֲҳ

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


  ϸ淶


    fpp Դ

fpp ԴɢԤı׼ Fortran 롣Ԥ
һַ # ͷֻһеĵһַλó֡# 
ԤıԤһַ # ͷֻ
һеĵһַλó֡# Ԥı

Ԥָܳ Fortran עڡԤҲ޸ Fortran ע
ڵı

ԤܹԹ̶ɸʽԴв̶ʽԴļ .F Ϊ
չɸʽԴļ .F90 Ϊչע⣬̶ʽļԼ
 FORTRAN 77  Fortran 90ڵʵı֮ǰԤ
չļ

չַ滻һееĿȳ 72 У̶ʽ 132
УʽԤʵС


    Ԥ

Ԥָ岢һֵַfpp Դκʺ滻
ĵطñֵ滻ֵıҲָУƴ͸
Դеѡ

#define name string

nameֵΪstringnameǵÿʵ[ 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

ЩǰԤ #define ָ fpp ʽע
⣬ָЩ fpp ʽ cpp ʽĳǿ
Fortran ߼֡ˣ.TRUE.  fpp ʽЧġԤ
ЩԻһ߼ٵĽЩʽֵ߰ں

ʾ

#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) ṩһƵĶ״̬ݸǷѶص
TRUE  FALSEͨ #if У

#if defined(BIG_MODEL)


    ѡ

fpp ͨ Fortran еáfpp ҲԶá fpp
ܵһЩѡ

-Dname

     name Ϊ 1 fpp ǰڴԴļг #define name1 
    һͬ


-Dname=def

     fpp ǰڴԴļг #define name def һͬ


-Idirectory

    directoryڡincludeĿ¼׼бǰ档ˣ˫
     (")  #include ļڰ #include еļĿ¼
    Ȼ -I ѡĿ¼ڱ׼бڵĿ¼


-Uname

    ɾnameгʼ壬СnameԤԤ塣


-Ydirectory

     #include ļʱʹádirectory滻Ŀ¼ı׼б

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

йʹ fpp ϸϢμ fpp(1) <../man1/fpp.1.html> ֲҳfpp Դ
Դ NetLib أַhttp://ww.netlib.org/fortran
<http://www.netlib.org/fortran>

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


  ֪

    *  1-6 еĺ꣺ ڹ̶ʽļУ磬 .F չļ
      fpp չ 1  6 гֵĺꡣڹ̶ʽļfpp 
      Fortran 򣬲ĳһеǰ 6 л 72 ֮䡣Ψһ
      Ľ취ʹɸʽ.F90  .F95 ļʵһ
      㣬ʹ cppչǰ 6 еĺꡣ(4315099)

 

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

Ȩ 2004 Sun Microsystems, Inc. Ȩ밴ʹá

