包含基于射线追踪的任意复杂界面计算

2026-08-14 08:00:47 +08:00
@@ -0,0 +1,15 @@
+!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
+!written by Qi Zhao(zhaoqi_326326@163.com)
+MODULE Precision
+    USE ISO_FORTRAN_ENV, ONLY : i1k => INT8, i2k => INT16, i4k => INT32, i8k => INT64, &
+        &                       r4k => REAL32, r8k => REAL64, r16k => REAL128
+    IMPLICIT NONE
+    !! Author: Qi Zhao
+    !! Date: 03/11/2024
+    !!
+    !! This module contains the Precision used for specifying the precision of variables
+    !!
+    PRIVATE
+    PUBLIC :: i1k, i2k, i4k, i8k, r4k, r8k, r16k
+
+END MODULE Precision