dock 4.0.1的编译问题
大家好：
最近编译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#
Reply to: