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 21module petscmldef 22 use petscregressordef 23#include <petsc/finclude/petscml.h> 24end module petscmldef 25 26module petscml 27 use petscregressor 28 use petscmldef 29end module petscml 30