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