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---