C3a_PT_8wks_T2w_DTI/MRI_raw_data/Treatment_C3a/P14/GV_T3_12_2_1_4_20190829_103718/7/pulseprogram

# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
;****************************************************************
;
; Copyright (c) 2001-2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
; $Id: DtiEpi.ppg,v 1.20 2012/04/13 10:02:12 sako Exp $

# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MRI.include" 1
;****************************************************************
;
; $Source: /pv/CvsTree/pv/gen/src/prg/methManag/PPG/Attic/MRI.include,v $
;
; Copyright (c) 2006
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
;;****************************************************************
;MRI.include

# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance3.incl
;   for AV III
;
;avance-version (13/06/17)
;
;$CLASS=HighRes Incl
;$COMMENT=
# 169 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/Avance.incl"
;$Id: Avance3.incl,v 1.9.6.1 2013/06/17 15:32:55 pfre Exp $
# 14 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MRI.include" 2

define delay aqq
define delay deparx
define delay derxadc
define delay rdepa

# 21 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MRI.include"
"aqq=dw*td"
"rdepa=de-depa"
"deparx=depa-derx"
"derxadc=derx-deadc"


; contents of De2.incl - usage for different hardware versions to 
; be checked - intermediate solution to support Jobs
define delay rde1
# 31 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MRI.include"
"rde1=de-de1"


# 44 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MRI.include"
; end of contents of De2.incl


# 65 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MRI.include"
	
	


# 74 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MRI.include"
	


# 128 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MRI.include"
# 129 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MRI.include"
   


# 141 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MRI.include"
	


# 11 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg" 2

preset off

# 15 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
;counter of dummy scans (not acquired; DS set to 0)
define loopcounter lcDs
"lcDs = l1"


# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 1
;****************************************************************
;
; Copyright (c) 2003-2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: PrepModulesHead.mod,v 1.19 2012/01/20 10:19:48 wemch Exp $
;
; All Rights Reserved
;
; Declaration of pulseprogram parameters and subroutines for 
; preparation  modules
;
; Must be included after MRI.include!
;
;****************************************************************

;**** Fat Suppression ****

# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/FatSupDef.mod" 1
;****************************************************************
;
; Copyright (c) 2002-2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: FatSupDef.mod,v 1.7 2013/07/05 14:15:26 sako Exp $
;
; All Rights Reserved
;
; FatSupDef.mod : Declaration of Fat Suppression Subroutine
;
;****************************************************************
# 15 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/FatSupDef.mod"
if (PVM_FatSupPerform == Yes)
{
  define pulse           fatSupPul   = {$PVM_FatSupRfLength}
  define list<frequency> fatSupList  = {$PVM_FatSupFL}
  
  define delay fatSupRamp  = {$PVM_FatSupRampTime}
  define delay fatSupAmp   = {$PVM_FatSupAmpEnable}
  define delay fatSupGrad  = {$PVM_FatSupGradWait}
  define delay fatSupSpoil = {$PVM_FatSupSpoilDur}

  ; convert from ms to s
  "fatSupRamp  = fatSupRamp  / 1000"
  "fatSupAmp   = fatSupAmp   / 1000"
  "fatSupGrad  = fatSupGrad  / 1000"
  "fatSupSpoil = fatSupSpoil / 1000"
}

subroutine FatSup
# 20 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Flow Saturation ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/FlowSatDef.mod" 1
;****************************************************************
;
; Copyright (c) 2005-2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: FlowSatDef.mod,v 1.7 2013/06/04 10:11:30 sako Exp $
;
; All Rights Reserved
;
; FlowSatDef.mod: Declaration of subroutines for Flow Saturation 
; call
; subr FlowSat()
; subr FlowSatInit()
; subr FlowSatInc()
; 
;****************************************************************

if(PVM_InFlowSatOnOff == 1)
{
define list<frequency> modlis4 = {$PVM_InFlowSatFL}
define list<grad_scalar> flowSatGrad={$PVM_InFlowSatGrad}
define delay SfD0 = {$PVM_SfD0}
define delay SfD1 = {$PVM_SfD1}
define delay SfD2 = {$PVM_SfD2}

define pulse SfP0 = {$PVM_SfP0}
define loopcounter SfLp0 = {$PVM_SfLp0}
}
subroutine FlowSat
subroutine FlowSatInc
subroutine FlowSatInit
# 24 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Inversion Pulse ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/InvPulseDef.mod" 1
;****************************************************************
;
; Copyright (c) 2002-2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: InvPulseDef.mod,v 1.2 2010/12/15 10:52:31 mah Exp $
;
; All Rights Reserved
;
; InvPulseDef.mod : Declaration of Inversion Pulse subroutine
;
; call
; subr InvPulse()
;
;****************************************************************
;   
;       PVM_InvRFPulseArr      :  
;     
;       sp22            TPQQ[14].name : PVM_InvRFPulsePropertyArr[0].Filename
;
;       PVM_IpP0                      :  PVM_InvRFPulseArr[0].PulseLength
;
;       PVM_IpD2                      :  PVM_InvPulseDelay[0]
;       PVM_IpD3                      :  PVM_InvPulseSpoilTime[0]
;       PVM_IpD1                      :  CONFIG_amplifier _enable
;       PVM_IpD0                      :  PVM_RampTime
;

if(PVM_InvPulseOnOff == 1)
{
define list<frequency>  modlis2= {$PVM_InvPulseOffsetHz}
define delay IpD0 = {$PVM_IpD0}
define delay IpD1 = {$PVM_IpD1}
define delay IpD2 = {$PVM_IpD2}
define delay IpD3 = {$PVM_IpD3}

define pulse IpP0 = {$PVM_IpP0}
}
subroutine InvPulse
# 28 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Magnetisation Transfer ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MagTransDef.mod" 1
;****************************************************************
; $Source: /pv/CvsTree/pv/gen/src/prg/methManag/PPG/Attic/MagTransDef.mod,v $
;
; Copyright (c) 2005-2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
; MagTransDef.mod: Declaration of subroutine for Magnetization 
;                  transfer 
; call
; subr MagTrans()
;
; $Id: MagTransDef.mod,v 1.6.2.1 2015/03/24 14:30:00 sako Exp $
;****************************************************************
;**** Magnetisation Transfer Module ****


if(PVM_MagTransOnOff)
{
define list<frequency> modlis3 = {$PVM_MagTransFL} 
define delay MtD0 = {$PVM_MtD0}
define delay MtD1 = {$PVM_MtD1}
define delay MtD2 = {$PVM_MtD2}
define delay MtD3 = {$PVM_MtD3}
# 28 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/MagTransDef.mod"
define pulse MtP0 = {$PVM_MtP0}

define loopcounter MtLp0 = {$PVM_MtLp0}
}

subroutine MagTrans
# 32 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Saturation Pulse ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/SatPulseDef.mod" 1
;****************************************************************
;
; Copyright (c) 2002-2003
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: SatPulseDef.mod,v 1.3 2010/12/15 10:52:31 mah Exp $
;
; All Rights Reserved
;
; SatPulseDef.mod : Declaration of Saturation Pulse subroutines
; call 
; subr SatPulse()
;
;****************************************************************
;   
;    PVM_SatRFPulseArr      :  
;     
;       sp28            DPQQ[12].name : PVM_SatRFPulsePropertyArr[0].Filename
;       sp29            DPQQ[13].name : PVM_SatRFPulsePropertyArr[1].Filename
;       sp30            DPQQ[14].name : PVM_SatRFPulsePropertyArr[2].Filename
;       sp31            DPQQ[15].name : PVM_SatRFPulsePropertyArr[3].Filename
;
;       PVM_SpP0                     :  PVM_SatRFPulseArr[0].PulseLength
;       PVM_SpP1                     :  PVM_SatRFPulseArr[1].PulseLength
;       PVM_SpP2                     :  PVM_SatRFPulseArr[2].PulseLength
;       PVM_SpP3                     :  PVM_SatRFPulseArr[3].PulseLength
;
;       PVM_SpD2                     :  PVM_SatPulseDelay1[0]
;       PVM_SpD6                     :  PVM_SatPulseSpoilTime[0]
;       PVM_SpD10                    :  PVM_SatPulseDelay2[0]
;       PVM_SpD3                     :  PVM_SatPulseSpoilTime[1]
;       PVM_SpD7                     :  PVM_SatPulseDelay1[1]
;       PVM_SpD11                    :  PVM_SatPulseDelay2[1]
;       PVM_SpD4                     :  PVM_SatPulseDelay1[2]
;       PVM_SpD8                     :  PVM_SatPulseSpoilTime[2]
;       PVM_SpD12                    :  PVM_SatPulseDelay2[2]
;       PVM_SpD5                     :  PVM_SatPulseDelay1[3]
;       PVM_SpD9                     :  PVM_SatPulseSpoilTime[3]
;       PVM_SpD13                    :  PVM_SatPulseDelay2[3]
;

if(PVM_SatPulseOnOff == 1)
   {
define list<frequency> modlis7 = {$PVM_SatPulseOffsetHz}

define delay SpD0 = {$PVM_SpD0}
define delay SpD1 = {$PVM_SpD1}
define delay SpD2 = {$PVM_SpD2}
define delay SpD3 = {$PVM_SpD3}
define delay SpD4 = {$PVM_SpD4}
define delay SpD5 = {$PVM_SpD5}
define delay SpD6 = {$PVM_SpD6}
define delay SpD7 = {$PVM_SpD7}
define delay SpD8 = {$PVM_SpD8}
define delay SpD9 = {$PVM_SpD9}
define delay SpD10 = {$PVM_SpD10}
define delay SpD11 = {$PVM_SpD11}
define delay SpD12 = {$PVM_SpD12}
define delay SpD13 = {$PVM_SpD13}
define pulse SpP0 = {$PVM_SpP0}
define pulse SpP1 = {$PVM_SpP1}
define pulse SpP2 = {$PVM_SpP2}
define pulse SpP3 = {$PVM_SpP3}
# 66 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/SatPulseDef.mod"
   }


subroutine SatPulse
# 36 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;*** FOV Saturation ***
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/FovSatDef.mod" 1
;****************************************************************
;
; Copyright (c) 2002-2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: FovSatDef.mod,v 1.8 2013/08/06 08:09:43 sako Exp $
;
; All Rights Reserved
;
; FovSat.mod : Declaration of FOV Saturation subroutine
; call: subr FovSat()
;
;****************************************************************


if (PVM_FovSatOnOff == On)
{
  define pulse           fovSatPul   = {$PVM_FovSatRfLength}
  define list<frequency> fovSatList  = {$PVM_FovSatFL}
  
  define delay fovSatRamp  = {$PVM_FovSatRampTime}
  define delay fovSatAmp   = {$PVM_FovSatAmpEnable}
  define delay fovSatGrad  = {$PVM_FovSatGradWait}
  define delay fovSatSpoil = {$PVM_FovSatSpoilDur}
# 27 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/FovSatDef.mod"
  ; convert from ms to s
  "fovSatRamp  = fovSatRamp  / 1000"
  "fovSatAmp   = fovSatAmp   / 1000"
  "fovSatGrad  = fovSatGrad  / 1000"
  "fovSatSpoil = fovSatSpoil / 1000"  
}

subroutine FovSat

# 53 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/FovSatDef.mod"
; backwards compatibility
subroutine SatSlices


# 40 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Black Blood ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/BlBloodDef.mod" 1
;****************************************************************
;
; Copyright (c) 2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: BlBloodDef.mod,v 1.4 2013/06/04 10:11:30 sako Exp $
;
; All Rights Reserved
;
; BlBloodDef.mod : Declaration of Black blood  subroutine
;
; call
; subr BlBlood(ph0) : Black blood preparation with RF phaselist
;                     ph0
;
;****************************************************************

if(PVM_BlBloodOnOff)
{
define list<frequency> modlis8 = {$PVM_BlBloodFL}
define delay BlbD0 = {$PVM_BlbD0}
define delay BlbD1 = {$PVM_BlbD1}
define delay BlbD2 = {$PVM_BlbD2}
define delay BlbD3 = {$PVM_BlbD3}

define pulse BlbP0 = {$PVM_BlbP0}
}
subroutine BlBlood
# 44 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Trigger ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/TriggerDef.mod" 1
;****************************************************************
;
; Copyright (c) 1998-2003
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
; TriggerDef.mod - Trigger Module
;
;****************************************************************

if (PVM_TriggerModule == On)
{
  define delay trigDur = {$PVM_TriggerDur}
  define delay trigDel = {$PVM_TriggerDelay}

  ; convert from ms to s
  "trigDur = trigDur / 1000"
  "trigDel = trigDel / 1000"
}
subroutine Trigger
subroutine TriggerPhase
subroutine TriggerSlice
# 48 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Trigger Out ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/TriggerOutDef.mod" 1
;****************************************************************
;
; Copyright (c) 2003
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
; $Id: TriggerOutDef.mod,v 1.2 2013/07/05 14:15:26 sako Exp $
;****************************************************************

if (PVM_TriggerOutOnOff == On)
{
  define delay trigOutDur = {$PVM_TriggerOutDur}
  define delay trigOutDel = {$PVM_TriggerOutDelay}

  ; convert from ms to s
  "trigOutDur = trigOutDur / 1000"
  "trigOutDel = trigOutDel / 1000"
}
subroutine TriggerOut
subroutine TriggerOutStart
subroutine TriggerOutSlice
subroutine TriggerOutVolume
# 52 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Outer Volume Suppression ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/WsOvsDef.mod" 1
;****************************************************************
;
; Copyright (c) 2005-2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: WsOvsDef.mod,v 1.6 2013/07/08 08:33:32 josh Exp $
;
; All Rights Reserved
;
; WsOvsDef.mod: Declaration of water suppression and Outer 
;               volume suppression subroutines
;
; call 
; subr Ovs(ph0) ;  execution of OVS with ph0 phaselist
;
; subr WsOvs(ph0,ph1) : execution of OVS with ph0 and WS with ph1
;                       phaselist
;****************************************************************

;**** OuterVolumeSuppression ****

if(PVM_OvsOnOff == 1)
{
define list<frequency> Ovslist={$PVM_OvsFrequencyList}
define delay OvsD0 = {$PVM_OvsD0}
define delay OvsD1 = {$PVM_OvsD1}
define pulse OvsP0 = {$PVM_OvsP0}
}
subroutine Ovs
# 59 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/WsOvsDef.mod"
;*** WaterSuppression Module with OVS ****

if (PVM_WsMode)
{

define list<frequency> Wslist={$PVM_WsOffsetHz}
define pulse WsP0 = {$PVM_WsP0}
define pulse WsP1 = {$PVM_WsP1}
define pulse WsP2 = {$PVM_WsP2}
define delay WsNp0 
"WsNp0 = WsP0"
define delay WsNp1 
"WsNp1 = WsP1"
define delay WsNp2 
"WsNp2 = WsP2"
define list<delay> ChD1={$PVM_ChppgD1}
define list<delay> ChD2={$PVM_ChppgD2}
define list<delay> VpD1={$PVM_VpppgD1}
define list<delay> VpD2={$PVM_VpppgD2}
# 79 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/WsOvsDef.mod"
}


subroutine WsOvsMain
subroutine WsOvs
subroutine Ws
# 56 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Solvent Suppression module ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/WsSatDef.mod" 1
;******************************************************************
;
; Copyright (c) 2002-2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: WsSatDef.mod,v 1.11 2013/08/23 08:37:06 josh Exp $ 
;
; All Rights Reserved
;
; WsSatDef.mod - Declaration of water suppression and FOV saturation 
;                subroutines
; call
; subr WsSat(ph0) : execution of WS with ph0 phaselist and 
;                   FOV saturation (as passed as argument)    
;      
;*******************************************************************


; Definitions for WsPpgParams are included in WsOvsDef.mod
subroutine WsSatMain
subroutine WsSat
# 60 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Selective Inversion Recovery ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/SelSliceIrDef.mod" 1
;****************************************************************
;
; Copyright (c) 2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: SelSliceIrDef.mod,v 1.5 2013/06/04 10:11:30 sako Exp $
;
; All Rights Reserved
;
; SelSliceIrDef.mod : declaration of slice Selective Inversion 
;                     Recovery subroutine
; call SliceSelIr()
; 
;
;****************************************************************


if(PVM_SelIrOnOff)
{
  define list<frequency> IrFL = {$PVM_SelIrFL} 
  define delay IrD0 = {$PVM_SelIrD0}
  define delay IrD1 = {$PVM_SelIrD1}
  define delay IrD2 = {$PVM_SelIrD2}
  define delay IrD3 = {$PVM_SelIrD3}
  define delay IrD4 = {$PVM_SelIrD4}
# 28 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/SelSliceIrDef.mod"
  define pulse IrP0 = {$PVM_SelIrP0}
  define loopcounter IrL0 = {$PVM_SelIrL0}
}

subroutine SliceSelIr

# 64 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Tagging ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/TagDef.mod" 1
;****************************************************************
;
; Copyright (c) 2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: TagDef.mod,v 1.6 2013/06/05 12:55:35 sako Exp $
;
; All Rights Reserved
;
; TagDef.mod : Declaration of tagging subroutine
; call
; subr Tagging()
;
;****************************************************************

if(PVM_TaggingOnOff)
{
define list<frequency> taggfreq={$PVM_TaggingFL}

define delay TaggD0 = {$PVM_TaggingD0}
define delay TaggD1 = {$PVM_TaggingD1}
define delay TaggD2 = {$PVM_TaggingD2}
define delay TaggD3 = {$PVM_TaggingD3}
define delay TaggD4 = {$PVM_TaggingD4}
define delay TaggD5 = {$PVM_TaggingD5}
# 28 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/TagDef.mod"
define pulse TaggP0 = {$PVM_TaggingP0}
define loopcounter TaggL0 = {$PVM_TaggingLp0}
}

subroutine Tagging

# 68 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Noe ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/NoeDef.mod" 1
;****************************************************************
;
; Copyright (c) 2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: NoeDef.mod,v 1.1 2007/07/02 14:26:00 mawi Exp $
;
; All Rights Reserved
;
; NoeDef.mod: Declaration of Nuclear Overhouser Enhancement 
;             subroutine
; call
; subr Noe()
;
;****************************************************************

if(PVM_NoeOnOff == On)
{
define delay NoeD0 = {$PVM_NoeD0}
define delay NoeD1 = {$PVM_NoeD1}
}

subroutine Noe
# 72 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


;**** Evolution ****
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/EvolutionDef.mod" 1
;****************************************************************
;
; Copyright (c) 1998-2003
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
;
; EvolutionDef.mod - Evolution Module
;
;****************************************************************

if (PVM_EvolutionOnOff == On)
{
  define delay       evolDel  = {$PVM_EvolutionDelay}
  define list<delay> evolTime = {$PVM_EvolutionTime}
}

subroutine Evolution
# 76 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/PrepModulesHead.mod" 2


# 21 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg" 2
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod" 1
;************************************************************************* 
; Copyright (c) 2002 - 2007
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; $Id: DwiHead.mod,v 1.10.2.2 2014/11/11 08:14:27 mawi Exp $
;
; All Rights Reserved
; 
; DwiHead.mod: Declaration of pulseprogram subroutines
;              for Stejscal Tanner Spinecho and Stimulated echo 
;	       and double spin echo preparation
;              preparation
;
; call
; subr DwiPrep(ph1)  : diffusion prepartion with RF phaselist 1
; subr DwiLoop(Diffl): loop part of diffusion preparation, loops
;                      to label Diffl (as passed as argument)
;
;*************************************************************************

define list<frequency> DwFl0 = {$PVM_DwFlist0}
define delay DwD0  = {$PVM_DwD0}
define delay DwD1  = {$PVM_DwD1}
define delay DwD2  = {$PVM_DwD2}
define delay DwD3  = {$PVM_DwD3}
define delay DwD4  = {$PVM_DwD4}
define delay DwD5  = {$PVM_DwD5}
define delay DwD6  = {$PVM_DwD6}
define delay DwD7  = {$PVM_DwD7}
define delay DwD8  = {$PVM_DwD8}
define delay DwD9  = {$PVM_DwD9}
define delay DwD10 = {$PVM_DwD10}
define delay DwD11 = {$PVM_DwD11}
define delay DwD12 = {$PVM_DwD12}
define delay DwD13 = {$PVM_DwD13}
define delay DwD14 = {$PVM_DwD14}
define delay DwD15 = {$PVM_DwD15}
define delay DwD16 = {$PVM_DwD16}
define delay DwD17 = {$PVM_DwD17}
define delay DwD18 = {$PVM_DwD18}
define delay DwD19 = {$PVM_DwD19}

define pulse DwP0 = {$PVM_DwP0}
define pulse DwP1 = {$PVM_DwP1}
# 47 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
define list<grad_scalar> DwGR1 ={$PVM_DwGradRead}
define list<grad_scalar> DwGP1 ={$PVM_DwGradPhase}
define list<grad_scalar> DwGS1 ={$PVM_DwGradSlice}
define list<grad_vector> DwGV1 ={$PVM_DwGradVec}
define list<grad_vector> DwSPD ={$PVM_DwSpDir}
define list<grad_vector> DwSPD1 ={$PVM_DwSpDir2}


# 69 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
define loopcounter DwExp = {$PVM_DwNDiffExp}


; double spinecho preparation
; slice refocusing groups
subroutine DwRefDse
subroutine DwRefDse2
subroutine DwDse
# 152 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
; spinecho stejscal tanner preparation

subroutine DwSe

# 184 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
; stimulated echo stejscal tanner preparation

subroutine DwSte

# 221 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
; 
; Diffusion Preparation module
;

subroutine DwiPrep

# 242 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
; Loop part of DTI module

subroutine DwiInit

subroutine DwiLoop
# 22 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg" 2

# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epiHead.mod" 1
;****************************************************************
;
; Copyright (c) 2003
; Bruker BioSpin MRI GmbH
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
; $Id: epiHead.mod,v 1.15 2013/05/29 13:46:09 fhen Exp $
; Declaration of pulseprogram parameters for epi module 
; 
;****************************************************************

define delay EpiD0 = {$PVM_EpiD0}
define delay EpiD1 = {$PVM_EpiD1}
define delay EpiD2 = {$PVM_EpiD2}
define delay EpiD3 = {$PVM_EpiD3}
define delay EpiD4 = {$PVM_EpiD4}
define delay EpiD5 = {$PVM_EpiD5}
define delay EpiD7 = {$PVM_EpiD7}
define delay EpiD8 = {$PVM_EpiD8}
define delay EpiD9 = {$PVM_EpiD9}
define delay EpiD10 = {$PVM_EpiD10}
define delay EpiD11 = {$PVM_EpiD11}
define delay EpiD12 = {$PVM_EpiD12}
define delay EpiD13 = {$PVM_EpiD13}
# 27 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epiHead.mod"
define list<grad_scalar> Interleaving={$PVM_EpiInterleavingFunction}

define delay Epi20u_de
"Epi20u_de = 20u - de" 

define list<delay> EpiVd = {$PVM_EpiVdList} 
# 23 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg" 2
# 26 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
dccorr                                             \n                           \n if (CONFIG_preemp_type == GREAT_60)               \n {                                                 \n if (CONFIG_instrument_type != Avance_III)      \n {                                              \n 500m setnmr0|34|33|32                          \n }                                              \n else                                           \n {                                              \n 200u setnmr0|34|33|32                          \n }                                              \n }                                                 \n if (CONFIG_preemp_type == DPP_with_SW_Blanking)   \n {\n 10u ctrlgrad 0  \n 10u grad{(0)|(0)|(0) }	  \n 200u setnmr0|34|33|32     \n }\n if (CONFIG_preemp_type == DPP)  \n {    \n 10u groff \n }


; GRAPPA adjustment?
if(PVM_EpiAdjustMode==2)
{
define list <grad_scalar> ACQ_spatial_phase_2
}
else
{
grad_zero_for_gs <ACQ_spatial_phase_2>
}
# 39 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
grad_matrix.res

subr DwiInit
;EXEC_begin DwiInit DwiInit()
# 244 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
 
      1u DwSPD.res
      if(PVM_DiffPrepMode != 0)
      {
         1u DwSPD1.res
      }
      1u DwGR1.res
      1u DwGP1.res
      1u DwGS1.res
      1u DwGV1.res



 
;EXEC_end   DwiInit
# 41 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"

# 44 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
DiffL,  4u
subr TriggerPhase
;EXEC_begin TriggerPhase TriggerPhase()
# 45 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/TriggerDef.mod"
 
  if (PVM_TriggerMode == per_PhaseStep)
  {
;EXEC_begin Trigger Trigger()
# 23 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/TriggerDef.mod"
 
  if (PVM_TriggerModule == On)
  {
    trigDur     setnmr3|6
  
    if (CONFIG_instrument_type == Avance_III)
    {
      trigDur   trignl1
      trigDur   trigpe3
    }
    else
    {
      trigDur
      trigDur   trigpl1
    }
  
    trigDur     setnmr3^6 
    trigDel
  }
 
;EXEC_end   Trigger
  }
 
;EXEC_end   TriggerPhase
# 45 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
slice,  5u	fq8(receive):f1
	5u

subr TriggerSlice
;EXEC_begin TriggerSlice TriggerSlice()
# 53 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/TriggerDef.mod"
 
  if (PVM_TriggerMode == per_Slice)
  {
;EXEC_begin Trigger Trigger()
# 23 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/TriggerDef.mod"
 
  if (PVM_TriggerModule == On)
  {
    trigDur     setnmr3|6
  
    if (CONFIG_instrument_type == Avance_III)
    {
      trigDur   trignl1
      trigDur   trigpe3
    }
    else
    {
      trigDur
      trigDur   trigpl1
    }
  
    trigDur     setnmr3^6 
    trigDel
  }
 
;EXEC_end   Trigger
  }
 
;EXEC_end   TriggerSlice
# 49 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
subr FovSat
;EXEC_begin FovSat FovSat()
# 34 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/FovSatDef.mod"
 
  if (PVM_FovSatOnOff == On)
  {
         PVM_FovSatGrad.res
         fovSatList.res

    fov19, fovSatRamp   grad_ramp<object_coord>{PVM_FovSatGrad[]}
         fovSatAmp    fovSatList:f1 gatepulse 1
         (fovSatPul    :sp41):f1
         fovSatSpoil  fovSatList.inc  grad_ramp{0, 0, PVM_FovSatSpoilAmp}
         PVM_FovSatGrad.inc        
    lo to fov19 times PVM_FovSatNSlices
         
         fovSatRamp   grad_off
         fovSatGrad
  }
 
;EXEC_end   FovSat
# 50 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
subr FatSup
;EXEC_begin FatSup FatSup()
# 32 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/FatSupDef.mod"
 
  if (PVM_FatSupPerform == Yes)
  {
    fatSupAmp       fatSupList:f1 gatepulse 1
    (fatSupPul       :sp40):f1
    fatSupSpoil     grad_shape {0, 0, PVM_FatSupSpoilAmp}
    fatSupRamp      grad_off
    fatSupGrad
  }
 
;EXEC_end   FatSup
# 51 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
;----------------------------------slice selection------------------	
	d1 	grad_ramp{0, 0, g0} fq1:f1 gatepulse 1 
	(p0:sp0 	ph0):f1
	d4 	grad_off
;----------------------------------slice rephase--------------------
	d2 	grad_ramp{0, 0, g1}
	d3      grad_off                          
subr DwiPrep
;EXEC_begin DwiPrep DwiPrep(phase ph1)
# 225 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
 
if(PVM_DiffPrepMode == 0)
{
;EXEC_begin DwSe DwSe(phase ph1)
# 154 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
 
 DwD0      grad_off
 if(PVM_DwDirectScale == Yes)
 {
   DwD5  grad_ramp<object_coord>{100*DwGV1[]}
 }
 else
 {
   DwD5  grad_ramp{100*DwGR1, 100*DwGP1, 100*DwGS1}
 }
 DwD6      grad_off                                 
 DwD2      grad_ramp<object_coord>{100*DwSPD[]}
 DwD3      grad_ramp{0, 0, PVM_DwSliceGrad} DwFl0:f1 gatepulse 1 
 (DwP0:sp49 ph1):f1
 DwD4      
 DwD2      grad_ramp<object_coord>{100*DwSPD[]}
 DwD7	   grad_off
 if(PVM_DwDirectScale == Yes)
 {
   DwD5  grad_ramp<object_coord>{100*DwGV1[]}
 }
 else
 {
   DwD5  grad_ramp{100*DwGR1, 100*DwGP1, 100*DwGS1}
 } 
 DwD1      grad_off
 
;EXEC_end   DwSe
}
if(PVM_DiffPrepMode == 1)
{
;EXEC_begin DwSte DwSte(phase ph1)
# 186 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
 
 DwD0      grad_off                              
 if(PVM_DwDirectScale == Yes)
 {
   DwD9  grad_ramp<object_coord>{100*DwGV1[]}
 }
 else
 {
   DwD9  grad_ramp{100*DwGR1, 100*DwGP1, 100*DwGS1}
 }
 DwD6      grad_off
 DwD2      grad_ramp<object_coord>{100*DwSPD[]}
 DwD3      grad_ramp{0, 0, PVM_DwSliceGrad} DwFl0:f1 gatepulse 1 
 (DwP0:sp48 ph1):f1
 DwD7
 DwD4      grad_ramp<object_coord>{100*DwSPD1[]}
 DwD5      grad_off
 DwD3      grad_ramp{0, 0, PVM_DwSliceGrad} gatepulse 1
 (DwP0:sp48 ph1):f1
 DwD7
 DwD2      grad_ramp<object_coord>{100*DwSPD[]}
 DwD8      grad_off
 if(PVM_DwDirectScale == Yes)
 {
   DwD9  grad_ramp<object_coord>{100*DwGV1[]}
 }
 else
 {
   DwD9  grad_ramp{100*DwGR1, 100*DwGP1, 100*DwGS1}
 } 
 DwD1      grad_off
 
;EXEC_end   DwSte
}
if(PVM_DiffPrepMode == 2)
{
;EXEC_begin DwDse DwDse(phase ph1)
# 105 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
 
 DwD0   grad_off DwFl0:f1 
 DwD6
 if(PVM_DwDirectScale == Yes)
 {
   DwD7	grad_ramp<object_coord>{100*DwGV1[]}
 }
 else
 {
    DwD7       grad_ramp{100*DwGR1, 100*DwGP1, 100*DwGS1}
 }
 DwD8	grad_off
;EXEC_begin DwRefDse DwRefDse(phase ph1)
# 77 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
 
 DwD5
 DwD1      grad_ramp<object_coord>{100*DwSPD1[]}
 DwD2      grad_ramp{0, 0, PVM_DwSliceGrad} gatepulse 1 
 (DwP0:sp49 ph1):f1
 DwD3      
 DwD1      grad_ramp<object_coord>{100*DwSPD1[]}
 DwD4	   grad_off
 
;EXEC_end   DwRefDse
 DwD9
 if(PVM_DwDirectScale == Yes)
 {
   DwD10	grad_ramp<object_coord>{-100*DwGV1[]}
 }
 else
 {
    DwD10       grad_ramp{-100*DwGR1, -100*DwGP1, -100*DwGS1}
 }
 DwD11	grad_off
 if(PVM_DwDirectScale == Yes)
 {
   DwD12	grad_ramp<object_coord>{100*DwGV1[]}
 }
 else
 {
    DwD12        grad_ramp{100*DwGR1, 100*DwGP1, 100*DwGS1}    
 }
 DwD13	grad_off
;EXEC_begin DwRefDse2 DwRefDse2(phase ph1)
# 88 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
 
 DwD5
 DwD1      grad_ramp<object_coord>{100*DwSPD[]}
 DwD2      grad_ramp{0, 0, PVM_DwSliceGrad} gatepulse 1 
 (DwP0:sp49 ph1):f1
 DwD3      
 DwD1      grad_ramp<object_coord>{100*DwSPD[]}
 DwD4	   grad_off
 
;EXEC_end   DwRefDse2
 DwD14
 if(PVM_DwDirectScale == Yes)
 {
   DwD15	grad_ramp<object_coord>{-100*DwGV1[]}
 }
 else
 {
    DwD15       grad_ramp{-100*DwGR1, -100*DwGP1, -100*DwGS1}
 }
 DwD16	grad_off
 
;EXEC_end   DwDse
}
 
;EXEC_end   DwiPrep
# 59 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
        if "lcDs > 0" goto acqDs    
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epi.mod" 1
;****************************************************************
;
; Copyright (c) 2002-2005
; Bruker BioSpin MRI GmbH 
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
; 
; epi.mod - an Echo-Planar Imaging module  
; 
;****************************************************************

# 14 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epi.mod"
;-------- version with shaped gradients:
if(PVM_EpiRampMode != SystemRamp)
{
	;5u fqatofqb:f1
	rdepa						 \n deparx     adc ph0  syrec	          \n derxadc     ph1:r  			  \n deadc      
        Epi20u_de
	if(PVM_EpiNShots != 1)
	{
	  if(PVM_EpiEchoTimeShifting == Yes)
	  {
		EpiVd	EpiVd.inc
	  }
	}

	if (PVM_EpiGradSync == Yes)
	{
		1u	trigpe3
	}

	if(PVM_EpiPrefixNavYes) ;prefix navigator
	{
		EpiD12 cpdngs17:f1
	}
        else
        {
		if(PVM_EpiDynCorr)
                {
		  EpiD12 cpdngs17:f1
                }
        }	
	if(PVM_EpiDynCorr)  ; dynamic ghost correction
	{
		EpiD13  grad_shape{EpiShape17() * 100, (0), (0)}
		EpiD5  grad_shape{EpiShape9() * 100, (0), (0)}
                EpiD11 grad_shape{EpiShape8() * 100, (0), (0)} ;plateau up		   
		EpiD5  grad_shape{EpiShape2()  * 100, EpiShape15() * 100, (0)} ;ramp down
		EpiD11 grad_shape{EpiShape13() * 100, 0, 0} ;plateau down
		EpiD5  grad_shape{EpiShape12() * 100, EpiShape16() * 100, (0)} ;ramp up
		EpiD11 grad_shape{EpiShape8()  * 100, (0), (0)} ;plateau up
		EpiD5  grad_shape{EpiShape10() * 100, (0), (0)}
		EpiD13  grad_shape{EpiShape17() * 100, (0) ,(0)} 
	}
# 57 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epi.mod"
	10u    gc_control
	{
		EpiD4  grad_shape{EpiShape1() * 100, EpiShape3() * 100	+ EpiShape18() * 100 * r2d  , (0)-EpiShape14() * 100 * ACQ_spatial_phase_2}
		EpiD5  grad_shape{EpiShape9() * 100, EpiShape11() * 100 * Interleaving,0}
                EpiD11 grad_shape{EpiShape8() * 100, 0, 0} ;plateau up
		loop PVM_EpiEchoCounter
		{		   
		  EpiD5	 grad_shape{EpiShape2()  * 100, EpiShape4() * 100, 0} ;ramp down
		  EpiD11 grad_shape{EpiShape13() * 100, 0, 0} ;plateau down
		  EpiD5  grad_shape{EpiShape12() * 100, EpiShape7() * 100, 0} ;ramp up
		  EpiD11 grad_shape{EpiShape8()  * 100, 0, 0} ;plateau up
		}
		EpiD5  grad_shape{EpiShape10() * 100, -EpiShape11() * 100 *Interleaving, 0}
		EpiD4  grad_shape{EpiShape5() * 100, EpiShape6()  * 100,EpiShape14() * 100  * ACQ_spatial_phase_2} 
	}
	EpiD1
	
        if(PVM_EpiPrefixNavYes) ;prefix navigator: adc is already running
	{
		EpiD2
	}
        else ;no prefix navigator or dyn corr: start adc now
	{
                if(PVM_EpiDynCorr)
                {
		  EpiD2
                }
                else
                {
		  EpiD2   cpdngs17:f1
                }
	}       
	EpiD3
        EpiD0   eoscnp

	if(PVM_EpiNShots != 1)
	{
	  if(PVM_EpiEchoTimeShifting == Yes)
	  {
		EpiVd	EpiVd.inc
	  }
	}
} ;--------end of version

;----------------------- version with system ramps  ---------------------------
if(PVM_EpiRampMode == SystemRamp)
{
	;5u fqatofqb:f1
	rdepa						 \n deparx     adc ph0  syrec	          \n derxadc     ph1:r  			  \n deadc      
        Epi20u_de
	if(PVM_EpiNShots != 1)
	{
	  if(PVM_EpiEchoTimeShifting == Yes)
	  {
		EpiVd	EpiVd.inc
	  }
	}
	if (PVM_EpiGradSync == Yes)
	{
		1u	trigpe3
	}
	if(PVM_EpiPrefixNavYes) ;prefix navigator
	{
		EpiD12 cpdngs17:f1
	}
# 123 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epi.mod"
        10u    gc_control
        {
          EpiD7 grad_ramp{PVM_EpiReadDephGrad * 100, PVM_EpiPhaseDephGrad * 100 +Interleaving * 100 *PVM_EpiPhaseEncGrad,0}
          EpiD8 grad_off
          EpiD9 grad_ramp{PVM_EpiReadEvenGrad * 100, 0, 0}
	  loop PVM_EpiEchoCounter
	  {	   
	    EpiD10 grad_ramp{0, PVM_EpiBlipEvenGrad *100, 0}
	    EpiD9 grad_ramp{PVM_EpiReadOddGrad * 100, 0, 0}
	    EpiD10 grad_ramp{0, PVM_EpiBlipOddGrad * 100, 0}
            EpiD9 grad_ramp{PVM_EpiReadEvenGrad * 100, 0, 0}
          }
	  EpiD8 grad_off
          EpiD7 grad_ramp{PVM_EpiReadDephGrad * 100, PVM_EpiPhaseRephGrad * 100 + Interleaving * 100 * PVM_EpiPhaseRewGrad, 0} 	 
          grad_off
        }
	EpiD1
 	
        if(PVM_EpiPrefixNavYes) ;prefix navigator: adc is already running
	{
		EpiD2
	}
        if(!PVM_EpiPrefixNavYes) ;no prefix navigator: start adc now
	{
		EpiD2   cpdngs17:f1
	}       
	
        EpiD3
        EpiD0 eoscnp
	if(PVM_EpiNShots != 1)
	{
	  if(PVM_EpiEchoTimeShifting == Yes)
	  {
		EpiVd	EpiVd.inc
	  }
	} 
}	 
;-------- end of version

# 61 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg" 2

goOn,	2.5u        
;----------------------------------slice loop-----------------------
	5u    grad_matrix.inc
	5u    DwFl0.inc
	d0
	lo to slice times NSLICES
	1u    grad_matrix.res
;----------------------------------averaging loop-------------------
        d5
        "lcDs = lcDs - 1"
        if "lcDs >= 0" goto DiffL      ;dummy scans        
	lo to DiffL times NA
;----------------------------------2d loop--------------------------
	1u Interleaving.inc
	lo to DiffL times l0
	1u Interleaving.res
;----------------------------------3d loop--------------------------
if( ACQ_dim >= 3 )
{
	1u ACQ_spatial_phase_2.inc
	lo to DiffL times ACQ_size[2]
}
;----------------------------------diffusion loop-------------------
subr DwiLoop
;EXEC_begin DwiLoop DwiLoop(any DiffL)
# 259 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DwiHead.mod"
 
if(PVM_DwFlag1 == 0)
{
   if( ACQ_scan_type == Scan_Experiment)
   {
      0u DwSPD.inc
      if(PVM_DiffPrepMode != 0)
      {
        0u DwSPD1.inc
      }
      1u DwGR1.inc
      1u DwGP1.inc
      1u DwGS1.inc
      1u DwGV1.inc
   } 
   else
   {
      4u
   }
}
else	
{
      0u DwSPD.inc
      if(PVM_DiffPrepMode != 0)
      {
         0u DwSPD1.inc
      }
      1u DwGR1.inc
      1u DwGP1.inc
      1u DwGS1.inc
      1u DwGV1.inc
}


lo to DiffL times DwExp

 0u DwSPD.res	
 if(PVM_DiffPrepMode !=0)
 {
    0u DwSPD1.res
 }
 1u DwGR1.res
 1u DwGP1.res
 1u DwGS1.res
 1u DwGV1.res

 
;EXEC_end   DwiLoop
# 85 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
;----------------------------------repetitions loop-----------------
	lo to DiffL times PVM_NRepetitions
# 89 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
if (ACQ_scan_type != Scan_Experiment) \n{ \n goto DiffL \n}
        goto bye
        
; ---- empty acquisition for dummy scans
acqDs,  1u
# 1 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epiDum.mod" 1
;****************************************************************
;
; Copyright (c) 2002-2005
; Bruker BioSpin MRI GmbH 
; D-76275 Ettlingen, Germany
;
; All Rights Reserved
; 
; epiDum.mod - a version the Echo-Planar Imaging module without phase 
;              acquisition (for the dummy scans)  
; 
;****************************************************************


# 16 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epiDum.mod"
;-------- version with shaped gradients:
if(PVM_EpiRampMode != SystemRamp)
{
	;5u fqatofqb:f1
	;rdepa						 \n deparx     adc ph0  syrec	          \n derxadc     ph1:r  			  \n deadc      
	10u
	if(PVM_EpiNShots != 1)
	{
	  if(PVM_EpiEchoTimeShifting == Yes)
	  {
		EpiVd	;EpiVd.inc
	  }
	}

	if (PVM_EpiGradSync == Yes)
	{
		1u	trigpe3
	}

	if(PVM_EpiPrefixNavYes) ;prefix navigator
	{
		EpiD12 ;cpdngs17:f1
	}
        else
	{
		if(PVM_EpiDynCorr)
                {
		  EpiD12 ;cpdngs17:f1
                }
	}
	if(PVM_EpiDynCorr)  ; dynamic ghost correction
	{
		EpiD13  grad_shape{EpiShape17() * 100, (0), (0)}
		EpiD5  grad_shape{EpiShape9() * 100, (0), (0)}
                EpiD11 grad_shape{EpiShape8() * 100, (0), (0)} ;plateau up		   
		EpiD5  grad_shape{EpiShape2()  * 100, EpiShape15() * 100, (0)} ;ramp down
		EpiD11 grad_shape{EpiShape13() * 100, 0, 0} ;plateau down
		EpiD5  grad_shape{EpiShape12() * 100, EpiShape16() * 100, (0)} ;ramp up
		EpiD11 grad_shape{EpiShape8()  * 100, (0), (0)} ;plateau up
		EpiD5  grad_shape{EpiShape10() * 100, (0), (0)}
		EpiD13  grad_shape{EpiShape17() * 100, (0) ,(0)} 
	}
# 59 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epiDum.mod"
	10u    gc_control
	{
		EpiD4  grad_shape{EpiShape1() * 100, EpiShape3() * 100	+ EpiShape18() * 100 * r2d  , (0)-EpiShape14() * 100 * ACQ_spatial_phase_2}
		EpiD5  grad_shape{EpiShape9() * 100, EpiShape11() * 100 * Interleaving,0}
                EpiD11 grad_shape{EpiShape8() * 100, 0, 0} ;plateau up
		loop PVM_EpiEchoCounter
		{		   
		  EpiD5	 grad_shape{EpiShape2()  * 100, EpiShape4() * 100, 0} ;ramp down
		  EpiD11 grad_shape{EpiShape13() * 100, 0, 0} ;plateau down
		  EpiD5  grad_shape{EpiShape12() * 100, EpiShape7() * 100, 0} ;ramp up
		  EpiD11 grad_shape{EpiShape8()  * 100, 0, 0} ;plateau up
		}
		EpiD5  grad_shape{EpiShape10() * 100, -EpiShape11() * 100 *Interleaving, 0}
		EpiD4  grad_shape{EpiShape5() * 100, EpiShape6()  * 100,EpiShape14() * 100  * ACQ_spatial_phase_2} 


	}
	EpiD1
# 78 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epiDum.mod"
        if(PVM_EpiPrefixNavYes) ;prefix navigator: adc is already running
	{
		EpiD2
	}
        else ;no prefix navigator or dyn corr: start adc now
	{
                if(PVM_EpiDynCorr)
                {
		  EpiD2
                }
		else
		{
		  EpiD2   ;cpdngs17:f1
		}
	}
       	
	EpiD3
        EpiD0   ;eoscnp

	if(PVM_EpiNShots != 1)
	{
	  if(PVM_EpiEchoTimeShifting == Yes)
	  {
		EpiVd ;EpiVd.inc	
	  }
	}
} ;--------end of version

;----------------------- version with system ramps  ---------------------------
if(PVM_EpiRampMode == SystemRamp)
{
	;5u fqatofqb:f1
	;rdepa						 \n deparx     adc ph0  syrec	          \n derxadc     ph1:r  			  \n deadc      
	10u
	if(PVM_EpiNShots != 1)
	{
	  if(PVM_EpiEchoTimeShifting == Yes)
	  {
		EpiVd	;EpiVd.inc
	  }
	}
	if (PVM_EpiGradSync == Yes)
	{
		1u	trigpe3
	}
	if(PVM_EpiPrefixNavYes) ;prefix navigator
	{
		EpiD12 ;cpdngs17:f1
	}
# 128 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/epiDum.mod"
        10u    gc_control
        {
          EpiD7 grad_ramp{PVM_EpiReadDephGrad * 100, 0, 0}
          EpiD8 grad_off
          EpiD9 grad_ramp{PVM_EpiReadEvenGrad * 100, 0, 0}
	  loop PVM_EpiEchoCounter
	  {	   
	    EpiD10 grad_ramp{0, 0, 0}
	    EpiD9  grad_ramp{PVM_EpiReadOddGrad * 100, 0, 0}
	    EpiD10 grad_ramp{0, 0, 0}
            EpiD9  grad_ramp{PVM_EpiReadEvenGrad * 100, 0, 0}
          }
	  EpiD8 grad_off
          EpiD7 grad_ramp{PVM_EpiReadDephGrad * 100, 0, 0} 	 
          grad_off
        }
	EpiD1
 	
        if(PVM_EpiPrefixNavYes) ;prefix navigator: adc is already running
	{
		EpiD2
	}
        if(!PVM_EpiPrefixNavYes) ;no prefix navigator: start adc now
	{
		EpiD2   ;cpdngs17:f1
	}       
	
        EpiD3
        EpiD0 ;eoscnp
	if(PVM_EpiNShots != 1)
	{
	  if(PVM_EpiEchoTimeShifting == Yes)
	  {
		EpiVd ;EpiVd.inc	
	  }
	} 
}	 
;-------- end of version
# 94 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg" 2

        goto goOn

# 98 "/opt/PV6.0.1/exp/stan/nmr/lists/pp/DtiEpi.ppg"
   
bye,    1u
exit

ph0 = 0 2
ph1 = 1