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