triso.f
来自「su 的源代码库」· F 代码 · 共 40 行
F
40 行
* Copyright (c) Colorado School of Mines, 2006.* All rights reserved.********************************************************** ** TRISO: Ray Tracing over Tabular Transversely ** Isotropic Media. ** ** Author: Sebastien Geoltrain ** ** Copyrights: Center for Wave Phenomena, ** Mathematics Department, ** Colorado School of Mines, ** Golden, CO 80401. ** ** All Rights Reserved. ** ********************************************************** integer stdin, stdout, stderr, temp1, temp2, temp3 common /io/ stdin, stdout, stderr, temp1, temp2, temp3* Definition of logical unit numbers* ... to be modified to comply with your system stdin = 5 stdout = 6 stderr = 0 temp1 = 10 temp2 = 20 temp3 = 30* call to the ray tracing code call cshotprof() stop end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?