diff --git a/lib/ss.bat b/lib/ss.bat index 37f669a18..d8483ffc7 100644 --- a/lib/ss.bat +++ b/lib/ss.bat @@ -1 +1 @@ -svn status | grep -v '?' +svn status | grep -v "?" diff --git a/lib/t1.f90 b/lib/t1.f90 new file mode 100644 index 000000000..5467e5a0c --- /dev/null +++ b/lib/t1.f90 @@ -0,0 +1,13 @@ +program t1 + + character*22 msg + complex c3(0:4096-1) + complex c5(0:4096-1) + + do i=1,999 + read(51,end=999) nutc,nsnr,xdt,nfreq,msg,c3,c5 + write(*,1010) nutc,nsnr,xdt,nfreq,msg +1010 format(2i6,f7.1,i6,2x,a22) + enddo + +999 end program t1