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