FORTRAN
关注
分享
扫一扫
yueliang2100
这个作者很懒，什么都没留下…
展开
-
非线性弹性全量本构模型程序(THURC3A)
module TypeDef !定义混凝土材性模块type :: typ_Concretereal*8 fc, ft,E0, ENU, EPS_Crush ; !抗压强度+，抗拉强度+，初始弹性模量，初始泊松比，压碎应变-real*8 Es, ENUs !割线模量，割线泊松比real*8 T(6,6) !坐标转换矩阵integer NCrack (3), Pre_NCrack(3), Pre_in...原创 2014-10-22 21:34:30 · 786 阅读 · 0 评论 -
从fortran向excel输出文件的方法
从fortran向excel输出文件的方法2007年03月28日 星期三 下午 03:57(by vqimwr)从fortran向excel输出文件的方法(增加了lm_lx用shell32打开xls的句子)：1、xls格式excel的默认格式，估计是大家所期望的输出格式。方法很简单，只要知道xls文件的分列符号是tab键就行了，于 是在同行的各数据间加上" "字符(按一...原创 2010-05-16 02:06:08 · 4681 阅读 · 0 评论 -
matlab中triarea函数的fortran版
program ArrayTest implicit none integer i real :: p(4,2) integer :: t(2,3) data p/ 0.,0.,2.,2., & 0.,2.,2.,0. / data t/ 1,2, & 4,4, & ...原创 2010-05-16 01:59:58 · 961 阅读 · 0 评论 -
fortran 实现cmd窗口输出彩色文字
!mavibardak.com !mavibardak msfwin kulanarak consolede renkli yazi yazdirmak !mav.bardak@yahoo.com.trprogram mavibardakuse msfwinimplicit noneinteger::a,i,n ! birinci dongu ! n sayisi...原创 2010-05-16 01:58:25 · 839 阅读 · 0 评论 -
边坡稳定计算-简化毕肖甫法
c 文件名: BISHOP.FORC 边坡稳定计算(一) (简化毕肖甫法) CHARACTER DFALE*12,YN*1 COMMON /NB/NB,NS,N /C/C(10),T(10),GS(10) * //X(41),YW(41),Y(10,41),Q(41),DX COMMON /TOL/TOL1,DS...原创 2010-05-16 01:56:10 · 2049 阅读 · 0 评论 -
非结构网格划分源码
DELAUNAY.FOR*************************************************************************----------------------------MAIN PROGRAM------------------------------*****************************************...原创 2010-05-16 01:48:36 · 500 阅读 · 0 评论 -
Matlab中inpoly函数的fortran版本，支持向量（绝对原创，欢迎验证）
程序源码（发现问题及时联系yueliang2100@163.com谢谢）module inpolygonimplicit nonecontainsfunction inpoly(p,node,edge_,TOL_) result(in_on)! INPOLY: Point-in-polygon testing.!! Determine whether a series of poin...原创 2010-05-16 01:37:15 · 556 阅读 · 0 评论 -
Inpolygon判断点是否在图形内
module Points_Module implicit none type point real :: x, y end type point interface operator (-) module procedure pt_sub end interface interface len module procedure p...原创 2010-05-16 01:33:00 · 404 阅读 · 0 评论 -
Fortran动态生成输出格式
如何用Fortran动态生成输出格式？-----------------------------------------------------------1、法一,用尖括号<>,其作用好像就是用于”在字符串中放置变量“。个人感觉这个方法比“内部文件法”要好一点，简单且易于理解。比如write(*,"(<num>f10.3)") data<&...原创 2010-05-16 01:00:47 · 986 阅读 · 0 评论 -
矩形的类class_Rectangle.f90
module class_Rectangleimplicit nonetype Rectanglereal :: base, heightend type Rectanglecontainsfunction rectangle_area (r) result (area)type(Rectangle), intent(in) :: rreal :: areaarea = r%base * r...原创 2010-05-16 00:47:05 · 150 阅读 · 0 评论 -
FORTRAN Source Codes
GAMS : Guide to Available Mathematical Software Guide to mathematical software in Fortran held at a small number of US government establishments. Some sources are in commercial libraries and are not d...原创 2010-01-24 20:35:25 · 1258 阅读 · 0 评论 -
fortran错误：the type of the actual argument differs from the type of the dummy argument
参考原文：https://blog.youkuaiyun.com/SinjoyWong/article/details/70138960在用intel fortran写一个DLL程序的时候，发现数据结构比较复杂，所以使用了fortran90中新增的结构体。因为abaqus只能识别.for格式的文件，一开始以为fortran77是无法使用结构体的。在写的过程中，直接将结构体对象的名称作为子程序的形参。...原创 2019-07-17 13:14:27 · 9514 阅读 · 0 评论 -
Intel FORTRAN与 Microsoft Visual Studio 集成问题
from:https://software.intel.com/en-us/articles/troubleshooting-fortran-integration-issues-with-visual-studio/Fortran 集成至 Visual Studio 的错误的症状包括：当打开 Fortran 项目时，出现错误，指示，.vfproj 项目文件不能识别 缺少 Fortran...翻译 2019-07-17 18:39:22 · 10949 阅读 · 1 评论 -
Create neat Excel spreadsheets and charts from your Fortran programs
This is an example in which we create a Fortran Automation controller for Excel. The main Fortran application opens a new Excel spreadsheet and set the values of a few cells to random values. Then the...原创 2010-05-16 02:16:36 · 187 阅读 · 0 评论 -
fortran-win-opengl（1）
fortran-win-opengl(一)!**********************************************************************************!*******************************(第0部分)程序说明模块******************************!***************...原创 2010-05-16 02:51:18 · 412 阅读 · 0 评论 -
结构力学求解器v2.0 源码奉献 可以运行
!Last change: CYCO 28 Dec 104 2:49 pm!modules are highlighted by ***, Subroutines by ===!****************************module NumKind!****************************!This module defines the ...原创 2010-06-03 02:03:56 · 1954 阅读 · 0 评论 -
清华大学研究生课程《钢筋混凝土有限元》教学程序
C =====================================================C 清华大学研究生课程《钢筋混凝土有限元》教学程序C 非线性弹性全量模型(江见鲸模型)C 利用MSC. Marc软件提供的 HYPELA 子程序C 主要参考文献：C 1. MARC Volumn D user subroutine and Special Routine...原创 2010-05-16 03:39:49 · 672 阅读 · 0 评论 -
精细时程积分
Module PreciseTimeIntegration Contains!************************************************************** Subroutine PreciseTIM (M, G, K, R, N, Nt, tao, X, XX, XXX)!***************************...原创 2010-05-16 03:34:46 · 444 阅读 · 0 评论 -
fortran OOP(7) Test_Student.f90
! include 'class_Date.f90'! include 'class_Person.f90'include 'class_Student.f90' ! see previous figureprogram main ! create or correct a student use class_Student ! inherits...原创 2010-05-16 03:29:41 · 167 阅读 · 0 评论 -
fortran OOP(6) Test_Rational.f90
! Copyright J. E. Akin, 1997! F90 Implementation of a Rational Class Constructors & Operators!! Reference: Examples 8.1,4,7,8,9,11 pages 221,4,6,7,8,230! Examples 9.2,4,5,7 ...原创 2010-05-16 03:27:55 · 143 阅读 · 0 评论 -
fortran OOP(5) Test_Date_Person.f90
include 'class_Date.f90'include 'class_Person.f90' ! see previous figureprogram main use class_Date ; use class_Person ! inherit class members implicit none type (Per...原创 2010-05-16 03:23:47 · 129 阅读 · 0 评论 -
fortran OOP(4) class_Student.f90
include 'class_Person.f90'module class_Student ! filename class_Student.f90 use class_Person ! inherits class_Date implicit none public :: Student, set_DOM, print_DOM t...原创 2010-05-16 03:21:50 · 255 阅读 · 0 评论 -
fortran OOP(2) class_Person.f90
include 'class_Date.f90'module class_Person ! filename: class_Person.f90use class_Dateimplicit none public :: Person type Person private character (len=20) :: name characte...原创 2010-05-16 03:19:39 · 225 阅读 · 0 评论 -
fortran OOP(1) class_Date.f90
module class_Date ! filename: class_Date.f90 implicit none public :: Date ! and everything not "private"! private :: month, day, year type Date private integer :: month, day, year ; ...原创 2010-05-16 03:18:34 · 167 阅读 · 0 评论 -
Fortran Call Matlab
program test!===============================================================================================================!! This program serves as a simple example on how to interface a Fortran p...原创 2010-05-16 03:11:54 · 347 阅读 · 0 评论 -
2d-3d truss.for
subroutine trussnd(d,ul,xl,ix,tl,s,p,ndf,ndm,nst,isw)c * * F E A P * * A Finite Element Analysis Programc.... Copyright (c) 1984-2000: Robert L. Taylorc-----[--.----+----.----+----.-----------...原创 2010-05-16 03:09:18 · 244 阅读 · 0 评论 -
Fortran 使用 opengl 例子
program simple!******************************************************************************!* This is a part of the Microsoft Source Code Samples. !* Copyright (C) 1993 Microsoft Corpo...原创 2010-05-16 03:03:13 · 920 阅读 · 0 评论 -
F2003过程指针2
module proc_component_example type t real :: a procedure(print_int), pointer, & nopass :: proc end type t abstract interface subrout...原创 2010-05-16 02:57:25 · 149 阅读 · 0 评论 -
F2003过程指针1
module proc_component_example type t real :: a procedure(print_int), pointer, & nopass :: proc end type t abstract interface subrout...原创 2010-05-16 02:55:23 · 160 阅读 · 0 评论 -
Intel Fortran2018+VS2017+Matlab2017编译环境手动配置
安装完后发现Intel Parallel Studio XE 2018 for Fortran with Microsoft Visual Studio 2017不支持Matlab2017,感觉肯定可以通过配置来达到目的，研究很久发现了解决方法：复制 MATLAB\R2017b\bin\win64\mexopts 下对应的intel_fortran_17_vs2017.xml改名为intel_...原创 2019-07-17 19:16:33 · 4769 阅读 · 5 评论