[thread display] [new arrival display] [word search] [past log] [管理用]
| Subject | ： Re^4: ftnchekを用いた、syntax checkで判明している引数不足な呼び出し |
| Date | ： 2005/11/01(Tue) 18:02:17 |
| Contributor | ： Akio Morita |
> > Subprogram varying number of arguments(argc of Define > Invoke)
> itfmessageexp@itfmessage.f tfsetlistr@tfeval1.f
> tfconvstr@tfconvstr.f tffile@tffile.f
> preadstr@preadstr.f, pstati@pstati.f
> preadmon@preadmon.f, petune@petune.f
たぶにこれで正しい
----PATCH----
Index: src/petune.f
===================================================================
--- src/petune.f (revision 390)
+++ src/petune.f (revision 393)
@@ -73,7 +73,7 @@
write(word,'(''ftn'',i2.2)') lfni1
elseif(itype.eq.101) then
call cssetp(next)
- word=tfconvstr(101,ia,x,nc)
+ word=tfconvstr(101,ia,x,nc,'*')
if(word.eq.' ') then
call permes('?Missing filename for BTUNE HISTORY','.',' ',
$ lfno)
Index: src/tffile.f
===================================================================
--- src/tffile.f (revision 390)
+++ src/tffile.f (revision 393)
@@ -60,7 +60,7 @@
lfopen(lfnp)=.false.
elseif(itype .eq. ntfstring)then
call cssetp(next)
- word=tfconvstr(ntfstring,ia,x,nc)
+ word=tfconvstr(ntfstring,ia,x,nc,'*')
do 8020 j=51,97
do 8030 i=lfnb,lfnp
if(j .eq. lfnstk(i))then
@@ -143,7 +143,7 @@
lfno1=98
close(lfno1)
call cssetp(next)
- word=tfconvstr(ntfstring,ia,x,nc)
+ word=tfconvstr(ntfstring,ia,x,nc,'*')
c write(*,*)'tffile-1 ',word(1:lnblnk(word))
call texpfn(word)
c write(*,*)'tffile-2 ',word(1:lnblnk(word))
Index: src/preadmon.f
===================================================================
--- src/preadmon.f (revision 390)
+++ src/preadmon.f (revision 393)
@@ -22,7 +22,7 @@
write(word,'(''ftn'',i2.2)') lfni1
elseif(itype.eq.101) then
call cssetp(next)
- word=tfconvstr(101,ia,x,nc)
+ word=tfconvstr(101,ia,x,nc,'*')
if(word.eq.' ') then
call permes('?Missing filename for MONREAD','.',' ',lfno)
call getwdl(word)
Index: src/tfeval1.f
===================================================================
--- src/tfeval1.f (revision 390)
+++ src/tfeval1.f (revision 393)
@@ -571,10 +571,10 @@
include 'inc/TFCODE.inc'
integer*4 it,ia,ia1,irtc,itx,iax,iv,
$ iav,iad,itadattach,itfcopy,i,italoc,
- $ itfmessage,itfcopy1,itfmessageexp
+ $ itfmessage,itfcopy1
real*8 v,vx
if(ia1 .le. 0)then
- irtc=itfmessageexp(999,
+ irtc=itfmessage(999,
$ 'General::invset','"a strange object"')
return
endif
Index: src/mckick.f
===================================================================
--- src/mckick.f (revision 390)
+++ src/mckick.f (revision 393)
@@ -27,7 +27,7 @@
c elseif(itype.eq.101) then
c print *,itype
c call cssetp(next)
-c word=tfconvstr(101,ia,x,nc)
+c word=tfconvstr(101,ia,x,nc,'*')
c if(word.eq.' ') then
c call permes('?Missing element for KICK','.',' ',6)
c call getwdl(word)
Index: src/preadstr.f
===================================================================
--- src/preadstr.f (revision 390)
+++ src/preadstr.f (revision 393)
@@ -23,7 +23,7 @@
write(word,'(''ftn'',i2.2)') lfni1
elseif(itype.eq.101) then
call cssetp(next)
- word=tfconvstr(101,ia,x,nc)
+ word=tfconvstr(101,ia,x,nc,'*')
if(word.eq.' ') then
call permes('?Missing filename for MONREAD','.',' ',lfno)
call getwdl(word)
Index: src/pstati.f
===================================================================
--- src/pstati.f (revision 390)
+++ src/pstati.f (revision 393)
@@ -69,7 +69,7 @@
write(word,'(''ftn'',i2.2)') lfni1
elseif(itype.eq.101) then
call cssetp(next)
- word=tfconvstr(101,ia,x,ncc)
+ word=tfconvstr(101,ia,x,ncc,'*')
if(word.eq.' ') then
call permes('?Missing filename for SUM','.',' ',lfno)
call getwdl(word)
---PATCH---