討論區快速選單
知識庫快速選單
網路投保旅行平安險 CRM雲端平台必備Salesforce認證 傑米的攝影旅遊筆記
[ 回上頁 ] [ 討論區發言規則 ]
FORTRAN的error 除錯
更改我的閱讀文章字型大小
作者 : newboy0519(超級新手)
[ 貼文 1 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2011/3/28 上午 06:43:22
各位專家:
     你好 我目前剛接觸到FORTRAN這個程式 所以很多地方不懂 想問一下大家! 請問 我有ㄧ份資料 是之前用fortran寫的程式 我現在電腦裡面是compaq visual fortran 6 ! 請問 visual fortran 跟 fortran 輸入方法有差別嗎? 為何我照key進去卻有很多錯誤呢? 可以麻煩幫我看一下哪邊有問題嗎? 稍微幾行就好 不用全部 (例如 第3 4 5行visual fortran 說語法錯誤 我不懂哪邊有錯)麻煩大家了!

     program fitbi

     program to fit calibration data of berner-impactor.
     A continuous function of aerodynamic diameter is used,
     which contains the parameter d50, slope and skewness


     eff = (1. + (d50/dae) ** pow) ** (-1.)
     pow = slope * (1. + (dae/d50) ** skew



     1. step: calibration points for each stage are read
     from a file, that contains diameter and
     corresponding cutoff effiency in two columns.
     2. step: linear regression is applied to data
     within an efficiency range 20 < eff < 80.
     to get an estimation for d50 and slope.
     3. step: first guess for fitting curve parameters is
     set to slope and d50 from linear regression,
     skewness is initialy set to zero.
     4. step: parameters are varied for best fit by using
     the NAG-Lib subroutine E04FDF. For description
     of this subroutine see NAG-Lib Manual.

     Author : W. Winklmayr
     Creation Date : 04-AUG-87
     Last Revision : 14-MAR-88

     Comment : Utility program for impactor inversion

     implicit double precision (a-h,o-z)

     character*12 indata
     character*l ans
     dimension xfit(50),yfit(50)
     dimension pararray (3),fscratch (1000)
     integer linecount,fitpoint,i,parcount,isc,fsc
     integer ierror,iscratch(100)


     common/cl/xval(50),yva1(50)

     open output file

     open (unit=12,file='lsfit.out',status='unknown')
     do 8000 j = 1,10

     initialize variables used

     do 100 i = 1,50
     xval(i) = 0.0
     yval(i) = 0.0
     xfit(i) = 0.0
     yfit(i) = 0.0
100 continue

101 continue
 板主 : 徵求中
 > Fortran - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Fortran - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Fortran
1 f77f95 3300 
2 dennis 470 
3 cc 350 
4 smallpotato 320 
5 qq 290 
6 冼鏡光 230 
7 eraser 220 
8 小文 210 
9 iner 200 
10 wuda 160 
Fortran
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.0625