Fortran Coder

查看: 9224|回复: 2
打印 上一主题 下一主题

[求助] 完全新手,求救大神。能不能帮我看看这是什么意思

[复制链接]

2

帖子

1

主题

0

精华

新人

F 币
21 元
贡献
8 点
跳转到指定楼层
楼主
发表于 2018-4-14 16:59:34 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
[Fortran] 纯文本查看 复制代码
C     User Unit Operation Model (or Report) Subroutine for USER
C     
      SUBROUTINE MEMBRANE (NSIN,    NINFI,  SIN1,   SIN2,    SIN3,
     2                   SIN4,    SINFI,  NSOUT,  NINFO,   SOUT1,
     3                   SOUT2,   SOUT3,  SOUT4,  SINFO,   NSUBS,
     4                   IDXSUB,  ITYPE,  NINT,   INT,     NREAL,
     5                   REAL,    IDS,    NPO,    NBOPST,  NIWORK,
     6                   IWORK,   NWORK,  WORK,   NSIZE,   SIZE,
     7                   INTSIZ,  LD)
C
      IMPLICIT NONE
C
C     DECLARE VARIABLES USED IN DIMENSIONING
C
      INTEGER NSUBS, NINT,  NPO,   NIWORK,NWORK,
     +        NSIZE
C
#include "ppexec_user.cmn"
      EQUIVALENCE (RMISS, USER_RUMISS)
      EQUIVALENCE (IMISS, USER_IUMISS)
C
C
C
#include "dms_ncomp.cmn"
C
C     THIS SUBROUTINE WILL SPLIT AN INLET TO TWO OUTLETS
C
C     RETRIEVE THE SLPIT FACTOR
C
C     DECLARE ARGUMENTS
C
      INTEGER IDXSUB(NSUBS),ITYPE(NSUBS), INT(NINT),
     +        IDS(2,13),    NBOPST(6,NPO),
     +        IWORK(NIWORK),INTSIZ(NSIZE),NSIN,  NINFI,
     +        NSOUT, NINFO, NREAL, LD,    I
      REAL*8 SIN1(1),      SIN2(1),      SIN3(1),
     +       SIN4(1),      SOUT1(1),     SOUT2(1),
     +       SOUT3(1),     SOUT4(1),     WORK(NWORK),
     +       SIZE(NSIZE),  SINFI, SINFO
C
C     DECLARE LOCAL VARIABLES
C
      INTEGER IMISS
      REAL*8 REAL(NREAL),  RMISS, SPLIT
C
C     BEGIN EXECUTABLE CODE
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

259

帖子

0

主题

0

精华

版主

World Analyser

F 币
717 元
贡献
510 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
沙发
发表于 2018-4-16 08:12:41 | 只看该作者
本帖最后由 kyra 于 2018-4-16 08:15 编辑

这是一个函数的开头,一些注释和变量声明。

你有啥疑问,请用文字描述。只贴代码谁知道你怎么了

2

帖子

1

主题

0

精华

新人

F 币
21 元
贡献
8 点
板凳
 楼主| 发表于 2018-4-18 10:44:09 | 只看该作者
已解决,谢谢。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-15 07:00

Powered by Tencent X3.4

© 2013-2024 Tencent

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