Searched refs:wcalls (Results 1 – 1 of 1) sorted by relevance
46 character*20 wcalls(MAXWCALLS), wpart local85 save wcalls,nwcalls100 wcalls(i)=''101 read(42,fmt='(a)',end=2867) wcalls(i)102 wcalls(i)=adjustl(wcalls(i))103 if(len(trim(wcalls(i))).eq.0) exit515 if(index(wcalls(i),wpart).ne.0) ifound=1522 wcalls(nwcalls)=wpart524 wcalls(1:nwcalls-1)=wcalls(2:nwcalls)525 wcalls(nwcalls)=wpart[all …]