(求助)dock4.0.1编译不成功

renws

大家好：

   最近编译dock4.0.1，按照readme，修改了source/dock/define.h，然后在  source目录下make install，结果出现了错误。google不果，看那个意思-NC200这  个参数没有识别出来，可是看看f77的手册，貌似没有-NC200这项，现在迷茫了，  望指点。
   如下:

debian-RenWS:/4.0.1/source# make install
(cd accessories; make install)
make[1]: Entering directory `/4.0.1/source/accessories'
f77 -O2 -NC200  -c -o addprh.o addprh.f
f77: unrecognized option `-NC200'
addprh.f: In program `addprh':
addprh.f:52:
        if ((chr.ne.'p').and.(chr.ne.'P').and.(chr.ne.'a').and.
                1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:52:
        if ((chr.ne.'p').and.(chr.ne.'P').and.(chr.ne.'a').and.
                                 1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:52:
        if ((chr.ne.'p').and.(chr.ne.'P').and.(chr.ne.'a').and.
                                                  1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:53:
       1    (chr.ne.'A')) goto 5
                1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:54:
        amber=((chr.eq.'a').or.(chr.eq.'A'))
                   1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:54:
        amber=((chr.eq.'a').or.(chr.eq.'A'))
                                   1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:57:
        if ((chr.ne.'y').and.(chr.ne.'Y').and.(chr.ne.'n').and.
                1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:57:
        if ((chr.ne.'y').and.(chr.ne.'Y').and.(chr.ne.'n').and.
                                 1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:57:
        if ((chr.ne.'y').and.(chr.ne.'Y').and.(chr.ne.'n').and.
                                                  1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:58:
       1    (chr.ne.'N')) goto 7
                1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:59:
        chged=((chr.eq.'y').or.(chr.eq.'Y'))
                   1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f:59:
        chged=((chr.eq.'y').or.(chr.eq.'Y'))
                                   1   2
Equality operator at (1) must operate on two scalar (not array)  subexpressions, two function invocations returning arithmetic or  character scalars, or a combination of both -- but the subexpression at  (2) is an array
addprh.f: In subroutine `addh':
addprh.f:74: warning:
           if ((inssb(nres,str(22:22),nssb,issb,ioth,sschid,chr)).and.
                1
addprh.f:174: (continued):
       1    (inssb(nres,resstr(iat)(22:22),nssb,issb,ioth,sschid,
             2
Argument #7 of `inssb' is one type at (2) but is some other type at (1)  [info -f g77 M GLOBALS]
addprh.f:74: warning:
           if ((inssb(nres,str(22:22),nssb,issb,ioth,sschid,chr)).and.
                1
addprh.f:411: (continued):
           if (.not.inssb(nres,resstr(iat)(22:22),nssb,issb,ioth,
                    2
Argument #7 of `inssb' is one type at (2) but is some other type at (1)  [info -f g77 M GLOBALS]
addprh.f: In subroutine `addwat':
addprh.f:1163: warning:
        r1=rand(0)
           ^
Explicit type declaration for intrinsic `RAND' disagrees with invocation  at (^)
addprh.f:1164: warning:
        r2=rand(0)
           ^
Explicit type declaration for intrinsic `RAND' disagrees with invocation  at (^)
addprh.f:1165: warning:
        r3=rand(0)
           ^
Explicit type declaration for intrinsic `RAND' disagrees with invocation  at (^)
addprh.f: In function `inssb':
addprh.f:74: warning:
           if ((inssb(nres,str(22:22),nssb,issb,ioth,sschid,chr)).and.
                1
addprh.f:1197: (continued):
        logical function inssb(nres,chid,nssb,issb,ioth,sschid,chr)
                         2
Argument #7 (named `chr') of `inssb' is one type at (2) but is some  other type at (1) [info -f g77 M GLOBALS]
make[1]: *** [addprh.o] Error 1
make[1]: Leaving directory `/4.0.1/source/accessories'
make: *** [install] Error 2
debian-RenWS:/4.0.1/source#