1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543 |
- # 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
|