| ²é¿´: 991 | »Ø¸´: 3 | ||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | ||
physliebeгæ (СÓÐÃûÆø)
|
[ÇóÖú]
ÕÒ²»³ö벡²»ÖªÔõô¸Ä£¿ ÒÑÓÐ1È˲ÎÓë
|
|
|
¼ÆËãϵÊý¾ØÕóΪÉÏÈý½ÇµÄÏßÐÔ·½³Ì×éAx=bµÄ½â£¬Nά ´úÂ룺 £¡############################################## module tri_eq contains subroutine uptri(A,b,x,N) implicit real*8(a-z) !aµ½z¿ªÍ·µÄ±äÁ¿¶¼ÊÓΪ˫¾«¶È¸¡µãÊý integer::i,j,k,N real*8::A(N,N),b(N),x(N) x(N)=b(N)/A(N,N) !»Ø´ú²¿·Ö do i=N-1,1,-1 do j=i+1,N x(i)=b(i)-a(i,j)*x(j) end do x(i)=x(i)/A(i,i) end do end subroutine uptri end module tri_eq !############################################ module driver contains subroutine dri_main() implicit real*8(a-z) integer::ioerr !ioerr=0 character(20)::uptr open(unit=11,file='fin.txt',iostat=ioerr) open(unit=12,file='fout.txt') do read(11,*) uptr !¶ÁÊäÈëÎļþ if(uptr(1:5)=='uptri') £¡ÌáʾÕâÀïÓдíÎó call dri_up() if(ioerr/=0) exit end do end subroutine dri_main subroutine dri_up() use tri_eq implicit real*8(a-z) integer,parameter::N=4 integer::i,j real*8::A(N,N),b(N),x(N) read(11,*)((A(i,j),j=1,N),i=1,N) !¶ÁÈëbÏòÁ¿ read(11,*) b call uptri(A,b,x,N) write(12,101) x 101 format(T5,'ÉÏÈý½Ç·½³Ì×éµÄ½â',/,T4,'x='4(/f12.8)) end subroutine dri_up end module driver £¡################################################ program main use driver call dri_main() end program main £¡################################################# ÆäÖÐfin.txtÈçÏ uptri 2 1 4 3 0 3 2 5 0 0 7 3 0 0 0 2 50 49 53 12 ±àÒëÐÅÏ¢£º D:\fortran_programming\myfirst\main.f95:31.34: if(uptr(1:5)=='uptri') 1 Error: Cannot assign to a named constant at (1) D:\fortran_programming\myfirst\main.f95:51.8: use driver 1 Fatal Error: Can't open module file 'driver.mod' for reading at (1): No such file or directory Process terminated with status 1 (0 minute(s), 0 second(s)) 1 error(s), 0 warning(s) (0 minute(s), 0 second(s)) |
» ²ÂÄãϲ»¶
329Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
070305¸ß·Ö×Ó»¯Ñ§ÓëÎïÀí 304·ÖÇóµ÷¼Á
ÒѾÓÐ8È˻ظ´
349Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
Ò»Ö¾Ô¸±±¾©Àí¹¤´óѧ±¾¿Æ211²ÄÁϹ¤³Ì294Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
291Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
0856²ÄÁÏ»¯¹¤µ÷¼Á ×Ü·Ö330
ÒѾÓÐ14È˻ظ´
352·Ö-085602-Ò»Ö¾Ô¸985
ÒѾÓÐ5È˻ظ´
¸÷λÀÏʦºÃ£¬ÎÒµÄһ־ԸΪ±±¾©¿Æ¼¼´óѧ085601²ÄÁÏר˶
ÒѾÓÐ8È˻ظ´
Çóµ÷¼Á£¬Ò»Ö¾Ô¸ ÄϾ©º½¿Õº½Ìì´óѧ £¬080500²ÄÁÏ¿ÆÑ§Ó빤³Ìѧ˶£¬×Ü·Ö289·Ö
ÒѾÓÐ4È˻ظ´
279Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
Materials LettersͶ¸åÒ»Öܺ󷵻ؼ¼ÊõÉó²éÒâ¼û£¬²»ÖªµÀÔõôÐ޸ģ¬Çó¸ßÊÖÖ¸½Ì
ÒѾÓÐ8È˻ظ´
²©Ê¿×öÁËÒ»ÄêµÄʵÑé¸Ð¾õ×Ô¼ºÊÔÑéÉè¼Æ³öÎÊÌ⣬¶¼²»ÖªµÀÄܲ»ÄܱÏÒµÁË
ÒѾÓÐ18È˻ظ´
castrp¼ÆËã³ö´í£¬²»ÖªÊ²Ã´ÔÒò£¬Çó´óÉñ½â´ð
ÒѾÓÐ12È˻ظ´
lammpsʵÑéÀÉìAlÄÉÃ×ÏßµÄinÎļþµÄ´íÎóÌáʾºÃ¾ÃÕÒ²»³ö£¿
ÒѾÓÐ8È˻ظ´
ÂÛÎÄÌύʱͼÐβ»·ûºÏÒªÇ󣬵«²»ÖªÔõôÐÞ¸Ä
ÒѾÓÐ8È˻ظ´
ÓïÑÔÐ޸ġ£Çë´ó¼Ò°ïæ·ÖÎöcommentsµÄÒâ˼¡£
ÒѾÓÐ8È˻ظ´
µ¼Ê¦²»¸ø¸ÄÂÛÎÄ£¬Ôõô°ì£¿
ÒѾÓÐ18È˻ظ´
×Ô¼ºÐ´µÄÒ»¸öС³ÌÐò£¬³öÏÖÎÊÌâ²»ÖªµÀÔõô½â¾ö
ÒѾÓÐ9È˻ظ´
2012Äê5ÔÂ31ÈÕ»ù½ðÆÀÉóÌå»á (×ªÔØ)
ÒѾÓÐ27È˻ظ´
³ª¸èÕÒ²»×ŵ÷Ò²ÊDz¡ ±»³ÆÎª¡°Ê§¸èÖ¢¡±
ÒѾÓÐ27È˻ظ´
Ͷ¸åʱÉó¸åÈ˸øµÄ¹ØÓÚXPSµÄÐÞ¸ÄÒâ¼û£¬²»ÖªµÀ¸ÃÔõô´¦ÀíÁË£¬Çó°ì·¨¡¡¡¡
ÒѾÓÐ3È˻ظ´
²ÉÓÃmatlabÖÐnlinfitÄâºÏ£¬³öÏÖÎÊÌâÁË£¬²»ÖªµÀÊÇÄÄ´íÁË£¬¸ÃÔõô½â¾ö£¬Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÒѾÓÐ9È˻ظ´
chemcomm´óÐÞ£¬µÚÒ»´ÎͶÎÄÕ£¬Ò»Ð©ÎÊÌâ²»ÖªµÀÔõô»Ø´ð£¬³æ×ÓÃǰï°ïæ°¡£¡
ÒѾÓÐ17È˻ظ´
Ó¢ÎÄд³öÀ´ÁË£¬ÀÏʦûÌáÒâ¼û£¬ÂÛÎIJ»ÖªÈçºÎÐ޸쬲»¸ÒͶ°¡£¿
ÒѾÓÐ6È˻ظ´
¡¾ÇóÖú/½»Á÷¡¿¹ØÓÚÖØ×éÖÊÁ£µÄ¹¹½¨£¬×ÜÊÇʧ°Ü£¬Ï£Íû¸ßÊÖÖ¸µãһϰ¡¡«¡«
ÒѾÓÐ16È˻ظ´
ÂÛÎÄ´óÐÞ£¬ÎÊÌâÒ»´ó¶Ñ£¬ÐÞ¸ÄÒâ¼ûËÄÒ³¶à£¬ÐÞºó¼ÓÿÉÄÜÐԴ󲻣¿
ÒѾÓÐ30È˻ظ´
¡¾ÇóÖú¡¿Óкܶà´íÎóµÄ³ÌÐò£¬ÕÒ²»³öÀ´ÁË
ÒѾÓÐ18È˻ظ´
ÔÚÆóÒµÀïÃæÑз¢×ö²»³ö²úÆ·Ôõô°ì
ÒѾÓÐ29È˻ظ´

physliebe
гæ (СÓÐÃûÆø)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 16.3
- É¢½ð: 40
- ºì»¨: 1
- Ìû×Ó: 148
- ÔÚÏß: 215.6Сʱ
- ³æºÅ: 1933844
- ×¢²á: 2012-08-11
- ÐÔ±ð: GG
- רҵ: ¼ÆËãÊýѧÓë¿ÆÑ§¹¤³Ì¼ÆËã

3Â¥2014-02-07 20:02:03
btx97
½ð³æ (СÓÐÃûÆø)
- Ó¦Öú: 39 (СѧÉú)
- ½ð±Ò: 1212
- É¢½ð: 10
- ºì»¨: 1
- Ìû×Ó: 191
- ÔÚÏß: 127.2Сʱ
- ³æºÅ: 1257872
- ×¢²á: 2011-04-07
- רҵ: ¹ÌÌåÁ¦Ñ§
2Â¥2014-02-07 19:27:13
btx97
½ð³æ (СÓÐÃûÆø)
- Ó¦Öú: 39 (СѧÉú)
- ½ð±Ò: 1212
- É¢½ð: 10
- ºì»¨: 1
- Ìû×Ó: 191
- ÔÚÏß: 127.2Сʱ
- ³æºÅ: 1257872
- ×¢²á: 2011-04-07
- רҵ: ¹ÌÌåÁ¦Ñ§
4Â¥2014-02-07 20:40:04














»Ø¸´´ËÂ¥