                         "" 1989 .
	      ࠭-77. ⪮ ᠭ ᭮ 
	   Microsoft-࠭ (ᨨ 4.01-4.10)

1. ⪮ ᠭ ⫨稩 S-࠭  ⠭ Fortran-77.
   ____________________________________________________________


   )   "PRINT"
   )   "ENTRY"
   )  z-ଠ -뢮 ⭠ ६
   )   "PARAMETER"  ᪠ ⢥ ࠦ
   ) 㬥 ⮢ ᨢ 稭  
   ) ࠭祭   ᨢ - 16384 
   ) ࠭祭  ⢮ த   "DATA" - 12 ப



2. ᭮  
   ____________________________

FL Command ( )

# Sintax (⠪    )
FL [option..][filespec..][option..][filespec..] [/link [libfield] [linkoption]]

਩:
FL  [..] [ᯥ䨪 䠩..][/link [⥪] [樨 ]

# O樨

/4ccstring
    ந ᫮  室 䠩.  
    ப, 稭騥  .

/4I{2|4}
    ⢥ 2 (/4I2)   4 (/4I4)   ६ ⨯ INTEGER 
    LOGICAL.  㬮砭 - /4I4.

/4{Y|N}6
    ⨬ (/4Y6)  ⨬ (/4N6) ࣠ 横 DO ⠭
    FORTRAN - 66.
    /4N6  㬮砭.

/4{Y|N}d
    ⨬ (/4Yd)  ⨬ (/4Nd) ।०  ᠭ -
    ६. /4Nd  㬮砭.

/4{Y|N}
    ⨬ (/4Yf)  ⨬  (/4Nf) ᢮ ଠ  室 -
    ࠬ. /4Nf  㬮砭.

/4{Y|N}t
    襭 (/4Yt)   ࠧ襭 (/4Nt) ᯮ짮   ᨬ-
      ᠭ  ६. /4Yt  㬮砭.

/Aletter
    ⠭  ."letter"  ਭ 祭 M  L,
     -  । , L -  让.  㬮砭 - /AL.
/c
      .

/Fa[listfile]
     ⨭ ணࠬ  ᥬ.

/Fc[lisfile]
     ᬥ蠭 ꥪ⭮-ᥬ୮ ⨭.

/Feexefile
       ᣥ७ 믮塞 䠩.  㬮砭 -
     ⠪    室  ७ .EXE.

/Fl[listfile]
     ⨭ ꥪ⭮ 䠩.

/Fm[mapfile]
      । .

/Foobjfile
    ᢠ    ꥪ⭮ 䠩 ᫥ 樨.
     㬮砭  ꥪ 䠩  ⥬  ,   室,
     ७ .OBJ.

/Fs[listfile]
     ⨭ 室 䠩.

/G{0|1|2}
     権   8086/8088 (/G0), 80186/80188
    (/G1), 権   80286 (/G2).   㬮砭 - (/G0).

/Gr
     ꥪ 䠩 ᮢ⨬  ꥪ묨 䠩
    FORTRAN ᨨ 3.2.

/Gt[number]
    ࠢ ᥣ樥 . ਬ 樨  
       256.

/HELP
    뤠  ࠭ ᯨ᪠ 権  FL.

/Oletters
    ஫ ⨬樨."letter"  ਭ   ᫥
    祭:
     祭            ᠭ
      x                ⨬ (⠭  㬮砭)
      s                 ⭮ .
      t               ⨬  ६ ᫥.

/Sllinesize
    ⠭ ਭ ப ⨭ 室 䠩. ࠡ뢠 ⮫쪮
     ⮬ 砥, ᫨  ⮣ ਬ﫠  /Fs.

/Sppagesize
    ⠭ ⢠ ப  ࠭  ⨭ 室 䠩.

/Ss"subtitle"
       ⨭ 室 䠩.

/St"title"
       ⨭ 室 䠩 (⠥   -
     㣫)

/Zi
      ꥪ 䠩 ᨬ쭮 ଠ樨, 室  ࠡ
    ᨬ쭮 ⫠稪 Microsoft CV.

/Zs
    ⨬ ⮫쪮 ᨭ⠪᪨ ஫.

# 㦥 
  ____________________________________________________________________
  ६                T 䠩

  PATH                    믮塞 (.), ࠢ騥 ணࠬ
                          
  INCLUDE                 , ⠢塞  ⠪ $INCLUDE
  TMP                     ६ 䠩, ᮧ ஬
  LIB                     ⥪ (.lib)
  ____________________________________________________________________

  ६ ।    DOS - SET  PATH
   ᥣ ᮧ  - 䠩      :
  PATH=C:\F77\BIN
  SET LIB=C:\F77\LIB
  SET TMP=C:\F77\TMP
  SET INCLUDE=C:|INCLUDE
  ____________________________________________________________________

# 樨  ᥫ  饩 窮

 1. ᭮ 樨
______________________________________________________________________
                                        ᯮ짮      롨ࠥ
      ⮤    २⢠               ⥪
______________________________________________________________________
/FPi87    In-line    -        ॡ         LLIBFOR7.LIB
                      ⭠                    (1)
                    ,ॡ                        MLIBFOR7.LIB
                    
/FPc87     Calls    ,祬         ॡ         LLIBFOR7.LIB
                    /FPi87, -                     (2)
                                             MLIBFOR7.LIB
                    ⥪ 
                    ६ 
/FPi       In-line    -    ᯮ      LLIBFORE.LIB
                     祬  /FPi87,         
                      ࠡ     ᫨      MLIBFORE.LIB
                      ஬,
		    ⠪   
/FPc       Calls     祬       ᯮ       LLIBFORE.LIB
                    /FPi           
                     -  ᫨       MLIBFORE.LIB
                      ६ -
		    
/FPa       Calls                 LLIBFORE.LIB
                     㤮 ,     
                     ⢨                       MLIBFORE.LIB
                    , 
                     
                    筮  -
                    
______________________________________________________________________




ਫ 1.   譨 䠩  MS-Fortran.
              _______________________________________

⠪ ஢, 饣 ࠡ  譨 䠩:

OPEN (UNIT-spec[,FILE='fname'][,STATUS='status'][,ACCESS='access']
     [,FORMAT='format'][,IOSTAT=iocheck][,RECL=rec-lengh]

     unit-spec - 楫 ᫮   (-3267; +3267), ॡ騩
                 ᪨  ன⢠ (0,* - ᮫  -
		  ( ﭭ))
     fname     -  譥 䠩
     status    -  ਭ 祭  OLD - ᫨ 䠩 㦥
                 ,  NEW - ᫨ ॡ  
     access    - SEQUENTAL -  䠩 ᫥⥫쭮 㯠,
                  DIRECT -  䠩 אַ 㯠.
     format    - FORMATTED -  ଠ⭮ ⨯ ,
                 UNFORMATTED -  ଠ⭮
     iocheck   - 楫 ६: ᫨ 0 -  䠩  ᯥ譮,
                 ᫨ 楫 ᫮, 襥  - 訡  ⨨
     rec-length- 楫 ᫮  ࠦ, ।饥  
                  . ॡ ⮫쪮  ࠡ  䠩 אַ-
		  㯠.


WRITE(unit-spec[,format-sec][,IOSTAT=iocheck][,ERR=slabel]
               [,REC=rec-num]) IOLIST

     format-spec - 楫 ⠭, 㪠⥫ ⪨  FORMAT
     slabel      - ⪠,   㤥 । ࠢ  -
                   砥 訡  - 뢮
     rec-num     - 楫 ᫮ >= 1,  ४ठ, 㤥 -
                   ᠭ (⮫쪮  䠩 אַ 㯠).
     IOLIST      - ᯨ᮪ -뢮
                   ⠫ ࠬ ਢ  ᠭ 
		   N


READ(unit-spec[format-spec][,IOSTAT=iocheck][,REC=rec-num][,END=slabel1]
              [,ERR=slabel]) IOLIST

     slabel1     - ⪠,  ன 㤥 । ࠢ, ᫨
     	             䠩.
		   ⠫ ࠬ ᬮ  ᠭ OPEN  WRITE.


BACKSPACE unit-spec

		 - ந 饭     
		   䠩  㪠 unit-spec.

ENDFILE unit-spec

		 -  ⢥ 뢠 ଠ樨 뢠 ਧ-
		     䠩.

REWIND unit-spec

		 - 室  砫 䠩  (⥭).




3.C ⫠稪 Code View
  _____________________________


# ⠪ 

CV [option] executablefile [arguments]

਩:
CV [] -䠩 [㬥]

# 樨
______________________________________________________________________
               ⢨
______________________________________________________________________
  /B                 ⫠稪 Code View  ୮- 
                    (  ᯮ짮 䠤 CGA)
  /Ccommands        믮塞   ᪥
  /F                 ⫠稪  ४祭 ࠭
                    (  ࠭ ⥬ ४祭 -࠭)
  /M                祭 ""
  /T                Starts the Code View debugger in sequational mode
  /S                 ⫠稪  ࠭ "᢮"
                    (ᬥ ࠭ ⥬ ࠭    ⥭
                     )
  /W                 ⫠稪  "" ०
  /43                ⫠稪  稨  EGA .
______________________________________________________________________



4.  .
   _______________

LINK Command

# Syntax

LINK objfile[,[exefile][,[mapfile][,[libfiles]]]] [options][;]

# 樨

/CO[DEVIEW]
     . 䠩  ᯥ樠쭮 ଠ, ᮤঠ饬 ᨬ
    ଠ, 室  ࠡ ⫠稪 Microsoft Code View.


/HE[LP]
      権  LINK  ࠭.

/HI[GH]
    饭  -䠩  ᨬ쭮  ࠧ஬.

/I[NFORMATION]
    뤠 ଠ樨  ६ .   ⥪ 㥬
    㫥.


/M[AP]
     室 䠩, ᮤঠ饣 祭   -
     室 䠩.

/NOD[EFAULTLIBRARYSEARCH]
    맮  ⥪ .

/NOI[GNORECASE]
     訥  쪨 㪢 ࠧ묨.

/P[AUSE]
       ६    ⮣, ⮡ 
    뫮 ᬥ .

/SE[GMENTS]:number
    ⠭ ᫠ ᥣ⮢, ⢮  ஬  ࠧ饭
    ணࠬ.
     㬮砭 - 128.



5.  ⥪.
   ____________________


LIB Command ( ⥪)


# Syntax

LIB oldlib [commands][file.obj] [,newlib][;]

਩:

LIB  ⥪ [][, ⥪]

# 
______________________________________________________________________
            ⢨
  +                OBJ-䠩   ⥪.
  -                  ⥪.
  -+               , 室饣  ⥪  ,
                  騩  ꥪ⭮ 䠩.
  *               ஢ ꥪ⭮   .obj-䠩.
  -*              ६饭 ꥪ⭮   ⥪ 
                  譨 䠩 ⨯ .obj.
______________________________________________________________________


6.஥ 㭪樨  .
  _____________________________


, ਢ , 뢠 祭 ⨯ ६,
ᯮ㥬  ⠡ 2,"஥ 㭪樨":

  饭          
  gen                 㬥 ࠧ ⨯

  int                INTEGER, INTEGER*1, INTEGER*2 or INTEGER*4
  int1               INTEGER*1
  int2               INTEGER*2
  int4               INTEGER*4
  real               REAL, REAL*4, DOUBLE PRECISION, or REAL*8
  real4              REAL*4
  dbl                DOUBLE PRECISION
  log                LOGICAL, LOGICAL*1, LOGICAL*2, or LOGICAL*4
  log1               LOGICAL*1
  log2               LOGICAL*2
  log4               LOGICAL*4
  cmp                COMPLEX, COMPLEX*8, or COMPLEX*16
  cmp8               COMPLEX*8
  cmp16              COMPLEX*16
  char               CHARACTER[*n]


 a 2   䠢⭮ 浪 ᭮ ஥ 㭪樨
Microsoft FORTRAN
______________________________________________________________________
                                                        
                          祭       㬥    㭪樨
______________________________________________________________________
  ABS(gen)                    ᮫⭮      int,real,    ,
                              祭         cmp       㬥
                                                           ஬ cmp (1)
  ACOS(real)                  મᨭ       real           
                                                            㬥
  AIMAG(cmp8)                       cmp8         real4


  ALOG(real4)                 ࠫ      real4        real4
                              
  ALOG10(real4)                      real4        real4
                              
  AMAX0(intA,intB[,intC...])  ᨬ         int          real4
  AMAX1(real4A,real4B
        [,real4C..]     )     ᨬ         real4        real4
  AMIN0(intA,intB[,intC...])            int          real4
  AMIN1(real4A,real4B
        [,real4C..]     )                real4        real4
  AMOD(real4A,real4B)         ⮪           real4        real4
  ASIN(real)                  ᨭ          real         (2)
  ATAN(real)                  ⠭        real         (2)
  ATAN2(realA,realB)          ⠭        real         (2)
                              realA/realB
  BTEST(intA,intB)            Bit -         int          log
  CABS(cmp)                   ᮫⭮ .   cmp          real1
  CCOS(cmp8)                  ᨭ            cmp8         cmp8
  CDABS(cmp16)                ᮫⭮ .  cmp16        dbl
  CDCOS   |       |           ᨭ         |       |  |       |
  CDEXP   |       |           ᯮ      |       |  |       |
  CDLOG   | cmp16 |           ࠫ.  cmp16 |  | cmp16 |
  CDSIN   |       |                      |       |  |       |
  CDSQRT  |       |           ७          |       |  |       |
  CEXP(cmp8)                  ᯮ        cmp8          cmp8
  CHAR(int)                   ८.⨯       int           char
  CLOG(cmp8)                            cmp8        cmp8
  CMPLX(genA[,genB])          ८.⨯      int,real or   cmp8
                                               int
  CONJG(cmp8)                 ᭮-      cmp8         cmp8
                              ᮯ殮
  COS(gen)                    ᨭ           real or cmp  (2)
  COSH(real)                  ࡮.    real         (2)
                              ᨭ
  COTAN(real)                 ⠭         real          (2)
  CSIN(cmp8)                               cmp8          cmp8
  CSQRT(cmp8)                 ७            cmp8          cmp8
  DABS(dbl)                   .祭      dbl           dbl
  DACOS(dbl)                  મᨭ         dbl           dbl
  DASIN(dbl)                  ᨭ          dbl           dbl
  DATAN(dbl)                  ⠭        dbl           dbl
  DATAN2(dblA,dblB)                             dbl           dbl
  DBLE(gen)                   ८.⨯        int,real or   dbl
                                                int
  DCMPLX(genA[,genB])         ८.⨯       --- // ---    cmp16
  DCONJG(cmp16)                                 cmp16         cmp16
  DCOS   |     |                             |      |     |      |
  DCOSH  |     |                             |      |     |      |
  DCOTAN | dbl |                             | dbl  |     | dbl  |
  DDIM   |     |                             |      |     |      |
  DEXP   |     |                             |      |     |      |
  DFLOAT(gen)                ८.⨯      int,real,cmp   dbl
  DIM(genA,genB)             ⥫쭠    int,real       (2)
                             ࠧ
  DIMAG(cmp16)                     cmp16        dbl
  DINT  |      |                             |      |      dbl
  DLOG  |      |                             |      |
  DLOG10|  dbl |                             |  dbl |
  DMAX  |      |                             |      |
  DMIN1 |      |                             |      |
  DMOD  |      |                             |      |


  DREAL(cmp16)             ८.⨯         cmp16        dbl
  DSIGN(dblA,dblB)                  dbl          dbl
  DSIN  |      |                             |      |    |      |
  DSINH |      |                             |      |    |      |
  DSQRT |  dbl |                             | dbl  |    |  dbl |
  DTAN  |      |                             |      |    |      |
  DTANH |      |                             |      |    |      |
  EOF(int)                    䠩       int          log
  EXP(gen)                   ᯮ        real,cmp     (2)
  FLOAT(int)                 ८.⨯       int          real
  HFIX(gen)                  ८.     int,real,cmp int2
  IABS(int)                  ᮫⭮ .  int          int
  IBCHNG(intA,intB)                   int          (2)
  IBCLR(intA,intB)           ⪠       int          (2)
  IBSET(intA,intB)           ⠭     int          (2)
  ICHAR(char)                ८.⨯        char         int
  IDIM(intA,intB)            .ࠧ  int          int
  IDINT(dbl)                 ८.⨯        dbl          int
  IMAG(cmp)                         cmp          real4
  INT   |      |                              | int, |      int
  INT1  |      |                              | real |      int1
  INT2  |  gen |             ८.⨯       |  or  |      int2
  INT4  |      |                              | cmp  |      int4
  INTC  |      |                              |      |    INTEGER
  ISHA  |           |        䬥. ᤢ |      |     |     |
  ISHFT |           |        ᪨       |      |     |     |
  ISHL  |           |               ᤢ     |      |     |     |
  ISIGN(intA,intB)                     int         int
  JFIX(gen)                  (3)                 int         int4
  LEN(char)                   char          char        int
  LGE   |             |          >            |      |     |     |
  LGT   | charA,charB |          <=           | char |     | log |
  LLT   |             |          <            |      |     |     |
  LOC(gen)                                 Any      int2 or int4
  LOG(gen)                   ࠫ. real        (2)
  LOG10(gen)                 .   real        (2)
  MAX0(intA,intB[,..])       ᨬ            int         int
  MAX1(realA,realB[...])     ᨬ            real        real
  MIN(genA,genB[...])                     real,int    (2)
  MOD(genA,genB)             ⮪             real,int    (2)
  REAL(gen)                  (3)                 int         real4
  SIGN(genA,genB)                      int,real    (2)
  SIN(gen)                                  real,cmp    (2)
  SINH(real)                 .ᨭ        real        (2)
  SNGL(dbl)                  ८.⨯               dbl         real4
  SQRT(gen)                  ७              real,cmp    (2)
  TAN(real)                               real        (2)
  TANH(real)                 .⠭      real        real

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  (1) ᫨ 㬥 COMPLEX*8, 㭪  REAL*4
  (2) ᫨ 㬥 COMPLEX*16, 㭪 REAL*8
  (3)   ८ࠧ.

______________________________________________________________________

⥫ 楤:

 Microsoft FORTRAN  ⥫ 楤, 騥
뢠  ⠭ ⥬   ⥬ ६.

# 楤 ࠡ  ६  ⮩.

   3.
______________________________________________________________________

  
______________________________________________________________________
  GETTIM(ihr,imin,isec,i100th)   ⥬ ६   INTEGER*2
  SETTIM(ihr,imin,isec,i100th)  .⥬ ६     INTEGER*2   LOGICAL
  GETDAT(iyr,imon,iday)          ⥬     INTEGER*2
  SETDAT(iyr,imon,iday)         .⥬       INTEGER*2   LOGICAL
______________________________________________________________________

  㬥  ਭ ᫥騥 祭:

  㬥               祭
  ihr                     (0-23)
  imin                   (0-59)
  isec                   㭤 (0-59)
  i100th                  ᥪ㭤(0-99)
  iyr                     (xxxx AD)
  imon                    (1-12)
  iday                     (1-31)

____________________________________________________________________

7.
  ___________

   ப, 稭  ᨬ $   1 
 ⠪. ⠪   㬥   ᯮ 
 ப.
  ਢ ᯨ᮪ ⠪  ᮮ⢥  権 -
  FL.
----------------------------------------------------------------------
  ⠪           
  $DEBUG                /4Yb
  $DEBUG:string         /4ccstring
  $DO66                 /4Y6
  $DECLARE              /4Yd
  $FREEFORM             /4Yf
  $NODEBUG              /4Yb(default)
  $NODECLARE            /4Nd(default)
  $NOFREEFORM           /4Nf(default)
  $LINESIZE:n           /Sl linesize
  $NOTRUNCATE           /4Nt
  $NOTSTRINCT           /4Ns(default)
  $PAGESIZE:n           /Sp pagesize
  $STIRICT              /4Ys
  $STORAGE:2            /4I2
  $STORAGE:4            /4I4
  $SUBTITLE:'subtitle'  /Ss"subtitle"
  $TITLE:'title'        /St"title"
  $TRUNCATE             /4Yt(default)


  ਫ 2.
  ____________

  ⪨ ਬ  ࠡ  ஬ FL.
  1).
  FL A.FOR B.FOR C.OBJ
   室 䠩 A.FOR  B.FOR, ⥬  
   䠩 C.OBJ  ᮧ 믮塞 䠩 A.EXE

  2).
  FL /Zs TEST*.FOR > TEST.ERR
  ந ᨭ⠪᪨   室 䠩 ⥪饩
  ४ਨ, 稭  ᨬ TEST. 饭  
  訡   䠩 TEST.ERR.


