(* ::Package:: *)

(* ::Input::Initialization:: *)

Needs["SubKernels`RemoteKernels`"];
       numCore=32;
       PBSKernel[host_String]:= LaunchKernels[RemoteMachine[host,"ssh -x -f -l `3` `1` /cm/shared/apps/Mathematica_10.0.1/Executables/math-mathlink -linkmode Connect `4` -linkname '`2`' -subkernel-noinit",numCore]];
       hostfile = Environment["PBS_NODEFILE"];

(* ::Input::Initialization:: *)

ParallelEvaluate[

 "initialising variables"

];


(* ::Input::Initialization:: *)

Do[

    b1 = ParallelTable[NIntegrate[func[x,i,j],{x,0,20}],{i,1,100},Method->"FinestGrained"];

    b1interp = Interpolation[b1];
    ParallelEvaluate[ToString[b1interp]];
    DistributeDefinitions[b1interp];

    b2 = ParallelTable[NIntegrate[b1interp[x,i,j],{x,0,20}],{i,1,100},Method->"FinestGrained"];
     .
     .
     .

   ,{j,1,100}

]


(* ::Input::Initialization:: *)

Exit[]