1module petscregressordef 2 use, intrinsic :: ISO_C_binding 3 use petsctaodef 4#include <petsc/finclude/petscregressor.h> 5#include <../ftn/ml/petscregressor.h> 6 7end module petscregressordef 8 9module petscregressor 10 use petscregressordef 11 use petsctao 12 13#include <../ftn/ml/petscregressor.h90> 14 15contains 16 17#include <../ftn/ml/petscregressor.hf90> 18 19end module petscregressor 20 21! ---------------------------------------------- 22 23module petscmldef 24 use petscregressordef 25#include <petsc/finclude/petscml.h> 26end module petscmldef 27 28! ---------------------------------------------- 29 30module petscml 31 use petscregressor 32 use petscmldef 33end module petscml 34