Dear Dr. Lars and Seisan users!
I am tried to re-compile the nor2dd program after made a little bit of
modification (extend the traveltime write out from f6.2 to f10.4) and
compile. However it required the seisan.a file in ../LIB
>
[havinhlong@localhost PRO]$ make ./nor2dd
make: *** No rule to make target '../LIB/seisan.a', needed by 'nor2dd'.
Stop.
-
I also tried to compile the seisan.a file to ../LIB, however, it makes some
error when compiling (.log file I attached here!)
>
[havinhlong@localhost LIB]$ make ./seisan.a
gfortran -g -c -I../INC -fdollar-ok -fno-automatic -o hyposub6.o
hyposub6.for
hyposub6.for:73:26:
73 | call ttcal(n_layer,v,z,d,vr,grad,z_hypo,pcrit,phi,dcrt,tcrt,
| 1
Error: Actual argument contains too few elements for dummy argument ‘v’
(150/200) at (1)
----
What am I doing wrong? My OS is Fedora 31, 64 bit and the version of Seisan
I tried both 10.1 and 11.
Regards,
--
*Long, Hà Vĩnh ------------------------------TIGP - Earth System Science
program StudentInstitute of Earth Science, Academia SinicaRoom 306,
**Institute
of Earth Science** Building, Academia Sinica*
*128, Sec.2, Academia Road, Nangang, Taipei 11529, Taiwan*
*Mob: +886 (0) 918-039-686 [In Taiwan] || +84 (0) 972-516-728 [In Vietnam]*
*email: [email protected] <[email protected]>*
*Skype: havinhlong1988*
*Facebook: https://www.facebook.com/havinhlong1988
<https://www.facebook.com/havinhlong1988>*
*A Supporter of Youtube channel: **Vietnamese Geophysics's Glossary
<https://www.youtube.com/channel/UC3kPVbxyvNj7iFTGwXkI8Dg>*
[havinhlong@localhost LIB]$ make ./seisan.a
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o abstim.o abstim.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o auto_tr.o auto_tr.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o auto_amp.o auto_amp.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o autocoda.o autocoda.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o auto_proc.o auto_proc.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o autofil.o autofil.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o azibazi.o azibazi.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o bcd.o bcd.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o bndpas.o bndpas.for
bndpas.for:52:72:
52 | 19 S(I+4)=Z1-Z2 00391300
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1)
bndpas.for:63:72:
63 | 29 D(I+1)=(A-2.0*B)/A 00392400
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 29 at (1)
bndpas.for:117:72:
117 | 39 X(I)=XE(M)-XE(M2)-D(7)*X(I-1)-D(8)*X(I-2) 00397800
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 39 at (1)
bndpas.for:157:72:
157 | 49 X(J)=XE(M)-XE(M2)-D(7)*X(J+1)-D(8)*X(J+2) 00401700
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 49 at (1)
bndpas.for:166:72:
166 | 59 X(I)=X(I)/gg 00402000
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 59 at (1)
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o check_s.o check_s.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o compdecomp.o compdecomp.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o codecoutil.o codecoutil.for
codecoutil.for:36:72:
36 | 1 if(t(trimlen:trimlen).ne.' ')RETURN
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
codecoutil.for:52:72:
52 | 1 if(t(trimbeg:trimbeg).ne.' ')RETURN
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
codecoutil.for:77:72:
77 | 10 IJD=IJD+IMO(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
codecoutil.for:83:72:
83 | 30 IDL=IDL-IMO(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o componen.o componen.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o conv_def.o conv_def.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o fft.o fft.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o eev_sub.o eev_sub.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o err_ellipse.o err_ellipse.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o filename.o filename.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o findchan.o findchan.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o findevin.o findevin.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o focmec_exe_sub.o focmec_exe_sub.for
focmec_exe_sub.for:332:72:
332 | 100 PTTP(J) = PTTP(J)/RDEG
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
focmec_exe_sub.for:336:72:
336 | 300 ANGS(J) = ANGS(J)/RDEG
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
focmec_exe_sub.for:904:72:
904 | DO 10 J=1,N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
focmec_exe_sub.for:909:72:
909 | DO 10 I=1,M
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
focmec_exe_sub.for:912:72:
912 | 10 R(IR)=R(IR)+A(JI)*B(IB)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
focmec_exe_sub.for:1339:72:
1339 | 100 IF (RDAT .GT. RMAX) RMAX = RDAT
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
focmec_exe_sub.for:1546:72:
1546 | do 100 j = i, n
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
focmec_exe_sub.for:1547:72:
1547 | 100 z(j,i) = a(j,i)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
focmec_exe_sub.for:1550:72:
1550 | 110 d(i) = a(n,i)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
focmec_exe_sub.for:1559:72:
1559 | 120 scale = scale + abs(d(k))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
focmec_exe_sub.for:1585:72:
1585 | 170 e(j) = 0.0e0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
focmec_exe_sub.for:1610:72:
1610 | 250 e(j) = e(j) + hh * d(j)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
focmec_exe_sub.for:1617:72:
1617 | 260 z(k,j) = z(k,j) + f * e(k) + g * d(k)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
focmec_exe_sub.for:1634:72:
1634 | 330 d(k) = z(k,i) / h
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1)
focmec_exe_sub.for:1641:72:
1641 | 340 g = g + z(k,i) * z(k,j)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
focmec_exe_sub.for:1646:72:
1646 | 350 z(k,j) = z(k,j) + g * d(k)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1)
focmec_exe_sub.for:1650:72:
1650 | 400 z(k,i) = 0.0e0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1)
focmec_exe_sub.for:1730:72:
1730 | 100 e(i-1) = e(i)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
focmec_exe_sub.for:2766:72:
2766 | 10 IF(TEXT(N:N).NE.' ')GOTO 15
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
focmec_exe_sub.for:3017:72:
3017 | 90 K=K+4
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
focmec_exe_sub.for:3023:72:
3023 | 1100 IF(ICHR(LEAD).NE.1000)GOTO 1110
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1100 at (1)
focmec_exe_sub.for:3039:72:
3039 | 1200 IF(L.EQ.1004)S(3)=S(3)-OLDWID
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1200 at (1)
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o fmap_subs.o fmap_subs.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o ga_lib.o ga_lib.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o get_baz.o get_baz.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o guralp.o guralp.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o gmap_sub.o gmap_sub.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o gmt.o gmt.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o gse_io.o gse_io.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o gserespl.o gserespl.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o gsesei_lib.o gsesei_lib.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o general.o general.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o hypmain.o hypmain.for
hypmain.for:1020:5:
677 | if(use_eev) goto 1000
| 2
......
1020 | 1000 continue
| 1
Warning: Legacy Extension: Label at (1) is not in the same block as the GOTO statement at (2)
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o hypmbn.o hypmbn.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o hypoloc.o hypoloc.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o hypoloc1.o hypoloc1.for
hypoloc1.for:1579:72:
1579 | 1 iptr(i)=i
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o hyposub1.o hyposub1.for
hyposub1.for:572:72:
572 | 15 if(s(j).eq.st(i))go to 16
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o hyposub2.o hyposub2.for
hyposub2.for:264:72:
264 | 17 dx(i)=-1.0/(cfact*parm(ne1))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 17 at (1)
hyposub2.for:396:72:
396 | 40 sum=sum+parm(nl+i)*2./sqrt((parm(k)/parm(i))**2-1.)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
hyposub2.for:405:72:
405 | 42 dcrit(k)=dcrit(k)+parm(nl+i)/sqrt((parm(k)/parm(i))**2-1.)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 42 at (1)
hyposub2.for:421:72:
421 | 52 sum=sum+eee*sqrt(1./(parm(i)*parm(i))-1./(parm(k)*parm(k)))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 52 at (1)
hyposub2.for:431:72:
431 | & parm(k)))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 53 at (1)
hyposub2.for:619:72:
619 | 35 td=td+pm/(parm(i)*sqrt(1.-p*p*parm(i)*parm(i)))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
hyposub2.for:1295:72:
1295 | 10 del=del+e/dsqrt(1.0d0/(dble(parm(i))*p)**2-1.0d0)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
hyposub2.for:1374:72:
1374 | do 20 i=1,n
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
hyposub2.for:1386:72:
1386 | do 35 j=i,n
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 35 at (1)
hyposub2.for:1495:72:
1495 | do 185 j=i,n
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 185 at (1)
hyposub2.for:1510:72:
1510 | 180 r(imr)=x
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o hyposub3.o hyposub3.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o hyposub4.o hyposub4.for
gfortran -c -I../INC -fdollar-ok -g -fno-automatic -o hyposub6.o hyposub6.for
hyposub6.for:73:26:
73 | call ttcal(n_layer,v,z,d,vr,grad,z_hypo,pcrit,phi,dcrt,tcrt,
| 1
Error: Actual argument contains too few elements for dummy argument ‘v’ (150/200) at (1)
hyposub6.for:103:27:
103 | call ttcal(n_layer,v,z,d,vr,grad,z_hypo,p,phi,dist,tmin,
| 1
Error: Actual argument contains too few elements for dummy argument ‘v’ (150/200) at (1)
hyposub6.for:112:27:
112 | call ttcal(n_layer,v,z,d,vr,grad,z_hypo,p,phi,dist,tmin,
| 1
Error: Actual argument contains too few elements for dummy argument ‘v’ (150/200) at (1)
hyposub6.for:121:29:
121 | call ttcal(n_layer,v,z,d,vr,grad,z_hypo,p,phi,dist,tmin,
| 1
Error: Actual argument contains too few elements for dummy argument ‘v’ (150/200) at (1)
hyposub6.for:131:30:
131 | call ttcal(n_layer,v,z,d,vr,grad,z_hypo,p,phi,dist,tmin,
| 1
Error: Actual argument contains too few elements for dummy argument ‘v’ (150/200) at (1)
hyposub6.for:142:29:
142 | call ttcal(n_layer,v,z,d,vr,grad,z_hypo,p,phi,dist,tmin,
| 1
Error: Actual argument contains too few elements for dummy argument ‘v’ (150/200) at (1)
hyposub6.for:150:30:
150 | call ttcal(n_layer,v,z,d,vr,grad,z_hypo,p,phi,dist,tmin,
| 1
Error: Actual argument contains too few elements for dummy argument ‘v’ (150/200) at (1)
hyposub6.for:166:29:
166 | call ttcal(n_layer,v,z,d,vr,grad,z_hypo,p,phi,dist,
| 1
Error: Actual argument contains too few elements for dummy argument ‘v’ (150/200) at (1)
hyposub6.for:174:26:
174 | call ttcal(n_layer,v,z,d,vr,grad,z_hypo,p,phi,dist,tmin,n_hypo,
| 1
Error: Actual argument contains too few elements for dummy argument ‘v’ (150/200) at (1)
make: *** [Makefile:391: hyposub6.o] Error 1
_______________________________________________
seisan mailing list
[email protected]
https://mailman.uib.no/listinfo/seisan
