search for: islip

...ault) write(30,*) (taub(n), n=1,nfault) write(30,*) (delts(n), n=1,nf) write(30,*) (cfr(n), n=1,nfault) write(30,*) (dfr(n), n=1,nfault) write(30,*) (slpdf(n), n=1,nf2) write(30,*) (slpv(n), n=1,nfault) write(30,*) (rhofcc(n), n=1,nfault) write(30,*) (islip(n), n=1,nfault) (NOTE: not all variables are the same length!) I subsequently read in back the data as: open(unit=30,name=fnin,status='old') read(30,'(a20)') fnmod read(30,'(a20)') fnstr read(30,*) nfault,hpl,vplx,vply,taua,tauf,amuu, &...