module geometry_lib contains !----------------Node to freedom number conversion ------…
intent 源代码
汇集 intent 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
module new_library contains subroutine formblock_k(bigk,km,g,g_min) ! forms complete n*n ma…
!======================================================================= SUBROUTINE REC_DIS ( ITILE, D ) USE PRECISION , ON…
!======================================================================= SUBROUTINE SNAP_DIS (ITILE, D) USE PRECISION , ONL…
!======================================================================= SUBROUTINE PRE_NR_COEF1 USE PRECISION , ONLY: …
!======================================================================= SUBROUTINE TIME_LOOP USE CONTROL_DATA, ONLY: …
MODULE MOD_ATTEN USE NRTYPE , ONLY: WP IMPLICIT NONE INTEGER :: I2NRFREQ1 REAL (WP), DIMENS…
SUBROUTINE QYLSM(Q,YY,NRFREQ) USE NRTYPE , ONLY: WP USE MOD_ATTEN, ONLY: FJJ, FJK, A, B, P, I2NRFREQ1 !-------------------…
MODULE MOD_INTERFACES IMPLICIT NONE INTERFACE SUBROUTINE ALLOCATE_ARRAYS END SUBROUTINE ALLOCATE_ARRAYS FUNCTION …
MODULE NRUTIL USE NRTYPE IMPLICIT NONE INTEGER(I4B), PARAMETER :: NPAR_ARTH=16,NPAR2_ARTH=8 INTEGER(I4B), PARAMETER :: NPAR_GE…