声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 2444|回复: 0

[计算力学] FORTRAN程序求助

[复制链接]
发表于 2006-12-8 11:13 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
PROGRAM   LAKIDIK
                       USE MSIMSL,ONLY:SDOT,SNRM2,LINRG
             CHARACTER   ARQ*7
                 REAL C,EUR,EPVOL,TEPVOL,
     *         PSI2,FP,FPS,FPA,FPP,GMOCT,H,
     *         J2,FPM,PREPVOL,
     *          ETA1,ALFA,PSI1,FPIX,FPMX,FPKX,FPK,
     *          MF,MI,NI,P,PRATM,
     *          SOCT,TOCT,M,LAMBDA,R,CALFA,FXX,FP1,WP,RO,DD
                 REAL D(3),LL(3),MM(3),NN(3),
     *         SG(3),EE(4),EP(4),ET(4),TG(3),SGSC(4),
     *        DS(3),PSG(3),PRSG(3),PREE(3),PREP(3),PRET(3),
     *         PRDS(3),PPRSG(3),DEE(4),DEP(4),SGRETURN(3),
     *         DPREE(4),DPREP(3),PARAM(13),II(3),SGA(3),SGB(3),
     *         SGC(3),
     *        tet(4),tep(3),tee(3),SGBC(3),SC(4),SD(4),DDS(4),
     *        DP(3),DEPR(3),SCZ(3)
               REAL OMEGA1(3,3),OMEGA2(3,3)
               INTEGER NS,I,NT,NUMICR,NR,LP,IP,NC,NP,JLAG
               INTEGER NINCR(200),IMPR(200)
C*******************************************************************************
C        INPUT PARAMETERS AND STRESS PATH
C*******************************************************************************
         WRITE(*,*)'         INPUT FILE  (EXTENSION .INP) WITH SEVEN CHARACTERS:'
                           READ (*,'(A7)') ARQ
             OPEN (5,FILE='ARQ//.INP')
             OPEN (6,FILE='ARQ//.OUT')
             OPEN (1,FILE='ARQ//.WK1')
             OPEN (4,FILE='ARQ//.WK2')
             OPEN (8,FILE='ARQ//.WK3')
             OPEN (3,FILE='ARQ//.WK4')
      请问一下,上面的程序有没有错误啊?在FORTRAN中,有没有这样的输入和输出格式啊?而且在程序编译后有警告,但是在连接后却是0个错误,0个警告,在执行时只能执行到“ INPUT FILE  (EXTENSION .INP) WITH SEVEN CHARACTERS”时再无法向下执行了,怎么回事啊?
    还有,在OPEN语句中的  //  是什么意思啊?在READ中的(7)又是什么意思啊?是不是它的格式有错误啊?假如是又该如何类修正,使它与FORTRAN规则相一致啊?还是程序本身又错误啊?
     还有在输入5号文件时其格式应该是怎样的啊?
     是不是在OPEN语句中别人做了省略啊?怎么回事啊?郁闷啊??????????????、
回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-13 14:14 , Processed in 0.058509 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表