Actual source code: petscmlmod.F90

      1: module petscregressordef
      2:   use, intrinsic :: ISO_C_binding
      3:   use petsctaodef
      4: #include <petsc/finclude/petscregressor.h>
      5: #include <../ftn/ml/petscregressor.h>

      7: end module petscregressordef

      9: module petscregressor
     10:   use petscregressordef
     11:   use petsctao

     13: #include <../ftn/ml/petscregressor.h90>

     15: contains

     17: #include <../ftn/ml/petscregressor.hf90>

     19: end module petscregressor

     21: !     ----------------------------------------------

     23: module petscmldef
     24:   use petscregressordef
     25: #include <petsc/finclude/petscml.h>
     26: end module petscmldef

     28: !     ----------------------------------------------

     30: module petscml
     31:   use petscregressor
     32:   use petscmldef
     33: end module petscml