>383
頼むから，>379を読んでください
・まず，実行できないという表現はありえません
・最も簡単なプログラム write(*,*) "test"　は実行できますか？
　実行できないなら，そもそもリンク作業を行っていません
　実行ファイルの作り方から復習してください
・エラーが起きていますか？
　それなら，
　　・０で割った（overflow，ゼロ割）
　　・配列のサイズを超えたアクセス（segmentation fault，f77で起きるかどうかしらん）
　が考えられます．適当な行に write(*,*) "koko" という文を入れて，そこまで実行
　されるかどうか確かめてください．　エラーが起きた行を捜します　
・単に出力がでないという意味なら，無限ループの可能性が高いです
　ループに write(*,*) h(i) という文を入れて，ループが予期した通りに動いているかどうか
　確かめましょう

なんか釣られている気がしてきた…