faltaba un ifdef para compilar con cygwin

salvaugres · Apr 18, 2024 · 4f09bf8 · 4f09bf8
1 parent ba600ed
commit 4f09bf8
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src_main_pub/nfde_types.F90 b/src_main_pub/nfde_types.F90
@@ -25,7 +25,9 @@
 MODULE NFDETypes
    !
    USE FDETYPES
+#ifdef CompileWithWires_mtln   
    USE mtln_types_mod
+#endif
    !
    IMPLICIT NONE
    INTEGER (KIND=4), PARAMETER :: RK = RKIND
@@ -779,8 +781,10 @@ MODULE NFDETypes
       ! Thin Elements                         
       TYPE (ThinWires), POINTER ::             tWires => NULL ()
       TYPE (SlantedWires), POINTER ::          sWires => NULL ()
-      TYPE (ThinSlots), POINTER ::             tSlots => NULL ()
+      TYPE (ThinSlots), POINTER ::             tSlots => NULL ()       
+#ifdef CompileWithWires_mtln   
       TYPE (mtln_t), POINTER ::                mtln => NULL ()
+#endif      
    END TYPE Parseador
 
    !---> definicion de tipos