{
  TString loadStatus("OK");
  Long_t a,b,c,d;
  if (gSystem->GetPathInfo("/usr/include/dcmtk",&a,&b,&c,&d)){
    

    //dcmtk installed at an unusuall location
    TString dcmtk(gSystem->Getenv("DCMTK"));
    if (!dcmtk.Length()){
      cout<<"Dcmtk unset. Exit ROOT and do"<<endl
          <<" #>export DCMTK=/location/to/installed/dcmtk"
          <<endl;
      loadStatus=TString("FAILED");
      return;
    }
    TString dcmtk_include=TString("-I")+dcmtk+TString("/include");
    
    gSystem->AddIncludePath
      (dcmtk_include.Data());
    
    TString dcmtk_lib=dcmtk+TString("/lib");
    gSystem->AddDynamicPath
      (dcmtk_lib.Data());
  }
  
  gSystem->Load("libofstd.so");
  gSystem->Load("liboflog.so");
  gSystem->Load("libdcmdata.so");
  gSystem->Load("libdcmdsig.so");
  gSystem->Load("libdcmnet.so");
  gSystem->Load("libdcmtls.so");
  gSystem->Load("libdcmimgle.so");
  gSystem->Load("libdcmimage.so");
  gSystem->Load("libdcmsr.so");
  gSystem->Load("libdcmqrdb.so");
  gSystem->Load("libdcmpstat.so");

  
  TString dicom2ROOT(gSystem->Getenv("DICOM2ROOT"));
  if (!dicom2ROOT.Length()){
    cout<<"Could not find Dicom2ROOT. Make sure enviromental varaible"
	<<"DICOM2ROOT is set to dicom2ROOT directory"<<endl;
    loadStatus=TString("FAILED_DICOM2ROOT");
    return;
  }

  TString dicom2ROOT_include="-I"+dicom2ROOT;

  //this is for other software to be able to use dicom2ROOT headers
  gSystem->AddDynamicPath(dicom2ROOT_include.Data());

  gInterpreter->AddIncludePath(dicom2ROOT.Data());

  gSystem->AddDynamicPath(dicom2ROOT.Data());
  
  TString dicom2ROOT_libs[]=
    {"dicomUtils","pixelData","dicomHeader","dicom2ROOT"};
  int dicom2ROOT_libs_n=4;

  for (int i=0;i<dicom2ROOT_libs_n;i++){
    TString lib=dicom2ROOT_libs[i]+"_C.so";
    cout<<"Loading "<<lib<<endl;
    gSystem->Load(lib.Data());
  }

}