Originally posted by snoopyzhao at 2011-04-27 10:41:03:
ÎÒÒ»°ã¶¼ÊÇÕâÑùµÄ£º

gfortran -Wall wavercar.f90 -o wavercar.exe

Originally posted by ºØÒÇ at 2011-04-27 10:45:50:
¶÷ ÎÒ±àÒëºÃÁË µ«ÊÇÔËÐÐÊdzöÕâÑùµÄ´í
At line 15 of file wavercar.f90
Fortran runtime error: Format present for UNFORMATTED data transfer
ÏÂÃæÊÇÍêÕûµÄ³ÌÐò
Äã°ïÎÒ¿´Ò»ÏÂÄÄÀïÓÐÎÊÌâºÃÂð£¿Ð»Ð»¿©

Originally posted by snoopyzhao at 2011-04-27 11:02:31:
ÊäÈëÊý¾ÝÎļþÒ²´«ÉÏÀ´°É¡£

Originally posted by ºØÒÇ at 2011-04-27 11:44:03:
ÀïÃæÓм¸¸ö±äÁ¿Ã»¶¨Ò壬 nbandmin.and.iband.le.nbandmax ÄãËæ±ã¸ÄÒ»ÏÂ

program example
   real :: a,a1,b,b1,c(4),c1(4)
   integer :: n,n1,m,m1
   n=6
   m=8
   a=1.1
   b=2.2
   c(1)=3.3
   c(2)=4.4
   c(3)=5.5
   c(4)=6.6
   open(1,file='test',form='unformatted')
   write(1)a,b,n
   write(1)c,m
   close(1)
   open(1,file='test',form='unformatted', status = 'old')
   read(1) a1,b1,n1
   read(1) c1, m1
   write(*,*) a1, b1, n1, c1, m1
   close(1)
end

Originally posted by snoopyzhao at 2011-04-27 14:50:50:
Ŷ£¬²Å×¢Òâµ½ÄãµÄÊäÈëÎļþÊÇÒ»¸ö¶þ½øÖÆÎļþ¡­¡­£¬ÔÚÕâÖÖÇé¿öÏ£¬ÄãµÄ read º¯ÊýÖоͲ»ÄÜÓÐÄǸö±íʾ fmt µÄ *£¬Ö±½Ó read(12).... ¾Í¿ÉÒÔÁË

²»¹ý£¬¶ÔÓÚÕâÖÖÇé¿ö£¬ÄãÒ»¶¨ÒªÖªµÀ¶þ½øÖÆÎļþÊÇÈçºÎдÈëµÄ£¬ÕâÑù²Å ...

Originally posted by snoopyzhao at 2011-04-27 14:50:50:
Ŷ£¬²Å×¢Òâµ½ÄãµÄÊäÈëÎļþÊÇÒ»¸ö¶þ½øÖÆÎļþ¡­¡­£¬ÔÚÕâÖÖÇé¿öÏ£¬ÄãµÄ read º¯ÊýÖоͲ»ÄÜÓÐÄǸö±íʾ fmt µÄ *£¬Ö±½Ó read(12).... ¾Í¿ÉÒÔÁË

²»¹ý£¬¶ÔÓÚÕâÖÖÇé¿ö£¬ÄãÒ»¶¨ÒªÖªµÀ¶þ½øÖÆÎļþÊÇÈçºÎдÈëµÄ£¬ÕâÑù²Å ...

Originally posted by ºØÒÇ at 2011-04-27 22:53:39:
ÒªÊDz»ÖªµÀ¶þ½øÖÆÎļþÊÇÈçºÎдÈëµÄ¿É²»¿ÉÒÔ¶ÁÈ¡³öÀ´£¿

Originally posted by snoopyzhao at 2011-04-27 23:05:02:
Õâ¸öÒ»°ãºÜÀ§ÄÑ£¬Ï൱ÓÚ½øÐÐÈ·½âÊý¾Ý¸ñʽÁË¡­¡­

ËùÒÔ£¬×îºÃ»¹ÊÇÕÒÒ»ÏÂÄǸöÎļþÊÇÈçºÎдÈëµÄ¡­¡­